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150 Ptas. 
Canarias 160 ptas. 
TODO 
ACERCA DE LAS 
SENTENCIAS 
READ y DATA 
SIGUELE 
LA PISTA AL 
BAs/e, eON 
LOS NUEVOS 
TRON y 
TROFF 


MUSICA ELECTRONICA 
CON AMSTRAD ANALlSIS 



 IMAGINACION+ 
. DISEÑADO' DE PANTALLAS = 
ARTE POR ORDENADOR 


SOFTWARE 


Starlon y 
Codename Mat 11, 
dos guerreros galáctlcos 
en misión de combate. 
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Apúntate a lo último. En SINCLAIR 
STORE tenemos las últimas 
novedades de este otoño. Desde 
el Spectrum de 128K al QL en 
español. Desde el nuevo 
AMSTRAD CPC 6128 a las 
últimas novedades mundiales en 
periféricos. Ven a vemos. Podrás 
comprobar lo personalmente, 
V no olvides pedir tu ta(/eta del 
CLUB SINCLAIR STOR
 con la 
que conseguirás el 10% de 
descuento en tus próximas 
compras, 


(Jl 
- 128K RAM 
- Procesador de 32 bits 
-mdadoproro
onmen 
castellano 
- 2 Microdrives incorporados 
- Color y alta resolucIón 
- Software incluído: 
· Tratamiento de textos 
. Base de datos 
· Hoja electrónica de cálculo 
. Gráficos 

 GARANTIA INVESTRON/CA 
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AMSTRAD CPC 6128 
- 128K RAM 
- 48K ROM 
- Umdad de disco de 3" 
- Teclado profesional en 
castellano 
- Monitor color o fósforo verde 
- Sistema operativo: 
AMS-DOS CP/M 22 
y CP/M Plus, 
- DR LOGO 
- Se entrega con dos discos de 
los sistemas operativos y 
Dr LOGO y un disco con 6 
programas de obsequio. 
- Manuales en castellano 

 GARANTIA OFICIAL AMSTRAD 
ESPAÑA 
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SOMOS PROFESIONALES I/'l// 
BRAVO MURILLO, 2 (apere, gratuito en Cl Mogallanes, 1). Tel.: 446 62 31 
DIEGO DE LEON, 25 (opere. gratuito en Cl Núñez de Bolboo, 114). Tel.: 261 88 O 1 MADRID 
AVDA. FELIPE 11, 12 Te!.: 431 32 33 MADRID (próxima apertura) 


SPECTRUM 128 
- 128K RAM 
- Teclado con caracteres 
españoles 
- Teclado adicional para edItar 
programas o textos, controlar 
juegos o como calculadora 
- Editor de pantalla permanente 
- Admite el software del 
Spectrum y Spectrum + 
- SalIda RS 232 y RED ZX 
- Conectar es: T. V, monitor RGB, 
cassette, microdrive, etc, 
- Facilidad de conexIón a 
diversos instrumentos 
musicales. 
- Manuales en castellano. 
" GARANTIA INVESTRON/CA 
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TARJETA DE SUSCRIPCION AHORRO/REGALO 


(Si lo prefieres suscríbete por teléfono (91) 73350 12 (91) 73350 16) 
Oferta especial para recibir en tu domicilio todo un año la revista semanal 
Microhobby AMSTRAD 
con un descuento de 1.600 ptas., iy el regalo de una cinta 
original por valor de 2.100 ptas.! 
FECHA LIMITE DE RESPUESTA: ¡SEÑALA EL NOMBRE DE LA CINTA QUE 
30 DE NOVIEMBRE DE 1985 PREFIERES Y LA RECIBIRAS EN TU CASA, 
¡RESPONDE HOY MISMO! GRATIS, A VUELTA DE CORREO! 


Deseo SUSGrlblrme ¡¡Microhobby AMSTRAD durante un ano por só105,900 ptas, , lo Que me supone un ahorro de1,600 ptas, 

I primer nÚmero Que deseo recibir es el 
f:nvienmeGRATIS la cmta de programas Que le indico con una (X) 
O Beach Head O Combat lynx O D,T. Decathlon 


NOMBRE 
APELLIDOS 
DOMICILIO 
CIUDAD 
C. POSTAL 


EDAD 


TELEFONO 


PROVINCIA 
PROFESION 


Marco con una (X) en el casillero correspondiente la lorma de pago Que mas me conViene, 
O Talón bancario adjunto a nombre 
IOR8Y PRfSS. S, A O GirO Postal N," 
primer numero, junto a la cassetle regalo, O VISA N° 
Fecha de caducidad de la tarJeta 


o Contra reembolso del 
O MASTER CHARGE N n 


Firma: 


José 1. G omez-C en,urión 


Jefe de Publicidad 
Concho Guliérrez 
Publicidad Barcelona 
José Golán Cortes 
Tel: (93) 303 1022/3137162 


Secretaria de Dirección 
Moriso C090rro 
Suscripciones 
M, a Rosa Ganzález 
M.o del Mor Calzado 
Redacción, Administración 
y Publicidad 
lo Granja, sin 
Poligona Industrial de Alcabendos 
Tel.: 6543211 
Telex: 49480 HOPR 


Dto. Circulación 
Carlos Perapadre 
Distribución 
Coedis, S, A. Valencia, 245 
Barcelona 
Imprime 
ROTEDIC, S. A. Crlo, de Irun. 
Km. 12,450 (MADRID) 
Fotocomposición 
Navocamp, S.A. 
Nicolás Morales, 38-40 
Fotomecánica 
GROF 
Ezequiel Solano, 16 
Depósito legal: 
M-28468-1985 


Derechos exclusivos 
de lo revisto 
COMPUTlNG with 
the AMSTRAD 


Representante pera Argentino. Chile, 
Uruguay y Paraguay, Cia. 
Americana de Ediciones, S.R.l. Sud 
América 1,532, Tel.: 21 2464, 1209 
BUENOS AIRES (Argentina). 
M. H, AMSTRAD no se hace 
necesariamenle solidaria de las 
opinione
 vertidas por sus 
colaboradores en los orhculos 
firmados. Reservados todos los 
derechos. 
Se solic
aró control OJO 
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pasos analiza cómo suministrárselos al 
Amstrad mediante la sentencia READ y DATA. 


'0 Análisis 
Esta vez nos ocupamos de estudiar un 
programa que convierte el teclado del 
Amstrad en un órgano electrónico, haciendo 
uso de todas las posibilidades de sonido del 
ordenador de una forma sorprendentemente 
sencilla y clara, Utilidad para tus iuegos y 
aprendizaie de técnicas de programación, todo 
en uno, 
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Serie Oro 


Demuéstrate que eres capaz de completar el 
vital cargamento de una nave espacial en 
condiciones especialmente difíciles y 
comprometidas, Aunque por el aspecto del 
programa parezca una tarea imposible, no lo 
es. Sólo se requiere un poco de habilidad y, 
bueno, un truquito, 
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rrollando una 
)idos héroes dirigen 
mga, 

 con vierten en los 
uerra galácfica, 


, 


lador probablemente 
ma vez y Sin errores, 
de Máxima 
stumbre, Y ello no 


(;:) ¡JU)/I)/(;:, 
Para paliar en lo posible esta triste realidad, 
el Amstrad Basic incorpora los comandos 
TRON y TROFF, Son útiles, pero pueden 
melÚarse mucho, 
Programación os dice cómo, 
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Banco 
de pruebas 
El campo de aplicación de los ordenadores, 
de tu Amstrad, abarca un amplio espectro de 
posibilidades, 
No sólo está restringido a cálculos científicos y 
técnicos, sino que cosas como el arte, el diseño 
asistido por ordenador y la creación de gráficos 
se encuentran a tu alcance, 
Para 105 artistas, banco de pruebas analiza un 
programa diseñador de gráficos en disco, 


Código 28 
máquina 
Siem¡Jre en la línea de encontrar una 
aplicación práctica a todo lo que hemos 
aprendido hasta ahora, AMSTRAD Semanal 
emprende con vosotros el apasionante camino 
de la animación de gráficos en lenguaie 
máquina, descansando, por ahora, del árido 
pero necesario estudio de nuevas instrucciones 
del lBO, 
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Apúntate a lo último. En SINCLAIR 
STORE tenemos las últimas 
novedades de este otoño. Desde 
el Spectrum de 128K al QL en 
español Desde el nuevo 
AMSTRAD CPC 6128 a las 
últimas novedades mundiales en 
periféricos. Ven a vemos. Podrás 
comprobarlo personalmente. 
V no olvides pedir tu tarjeta del 
CLUB SINCLAIR STOR£ con la 
que conseguirás el 10% de 
descuento en tus próximas 
compras. 


(JL 
- 128K RAM 
- Procesador de 32 bits 
- Teclado profesional en 
castellano 
- 2 Microdrives incorporados 
- Color y alta resolución 
- Soft1Nare incluí do: 
. Tratamiento de textos 
. Base de datos 
. Hoja fllectrómca de cálculo 
. Gráficos 
.. GARANTlA INVESTRONlCA 
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SPECTRUM 128 
- 128K RAM 
- Teclado con caracteres 
españoles 
- Teclado adicional para editar 
programas o textos, controlar 
juegos o como calculadora 
- Editor de pantalla permanente 
- Admite el soft1Nare del 
Spectrum y Spectrum + 
- Salida RS 232 y RED ZX 
- Conectores: T. V/ monitor RGB, 
cassette, microdrive, etc. 
- FacilIdad de "conexión a 
diversos instrumentos 
musicales. 
- Manuales en castellano. 
.. GARANTlA INVESTRONlCA 


AMSTRAD CPC 6128 
- 128K RAM 
- 48K ROM 
- Un/dad de disco de 3' 
- Teclado profesional en 
castellano 
- Monitor color o fósforo verde 
- Sistema operativo: 
AMS-DOS CPIM 22 
yCPIM Plus. 
- DR LOGO 
- Se entrega con dos discos de 
los sistemas operativos y 
Dr LOGO y un disco con 6 
programas de obsequio. 
- Manuales en castellano 
" GARANTlA OFICIAL AMSTRAD 
ESPAÑA 
a 
 a -,7F' ///// 

 fl!r7lfSl¡i
l/I
 
LI/f:: ; i¡¡¡--¡ ==1 
SOMOS PROFESIONALES L// / /7 
BRAVO MURILLO. 2 (o pare. gratuito en Cl Mogollones, 1). Tel: 446 62 31 
DI EGO DE LE O N, 25 (o pare. gratUito en Cl Núñez de Balboa. 114). TeL: 261 88 O 1 MADRID 
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y Publicidad 
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Nicolás Morales, 38-40 
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Derechos exclusivos 
de la revista 
COMPUTING with 
the AMSTRAD 


Rcpresentan1e para Argentina, Chile, 
Uruguay y Paraguay, Cia. 
Americana de Ediciones, S. R. L. Sud 
América 1.532, Tel.: 212464.1209 
BUENOS AIRES (Argentina), 
M. H, AMSTRAD no se hace 
necesoriamEmle solidario de los 
opiniones vertidos por sus 
colaboradores en los arhculas 
firmodos. Reservados todos los 
derechos. 
Se solidtorá control OJO 
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Año J . Número 13 · 26 de Nov. al 2 de Die. 
150 plas, (sobrelasa Canarias, 10 plos.) 


5 Primera 
plana 
Amstrad es el más fiable, según 
AMSTRAD Aprender de un ordenador a iugar 
al aiedrez. Más y más soft en disco, 


Primeros ' 
pasos 
Los ordenadores trabaian maneiando datos, 
números, como todo el mundo sabe. Primeros 
pasos analiza cómo suministrárselos al 
Amstrad mediante la sentencia READ y DATA. 


lO Análisis 
Esta vez nos ocupamos de estudiar un 
programa que convierte el teclado del 
Amstrad en un órgano electrónico, haciendo 
uso de todas las posibilidades de sonido del 
ordenador de una forma sorprendentemente 
sencilla y clara, Utilidad para tus iuegos y 
aprendizaie de técnicas de programación, todo 
en uno. 
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Serie Oro 
Demuéstrate que eres capaz de completar el 
vital cargamento de una nave espacial en 
condiciones especialmente difíciles y 
comprometidas, Aunque por el aspecto del 
programa parezca una tarea imposible, no lo 
es, Sólo se requiere un poco de habilidad y 
bueno, un truquito, 
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Mr. Joystick 
En el espacio se está desarrollando una 
terrible contienda, dos intrépidos héroes dirigen 
sus naves hacia la flota enemiga, 
Peter Pilot y Mat Adams se convierten en los 
protagonistas de la cuarta guerra galáctica. 


Programación 20 
El sueño de todo programador probablemente 
sea escribir su creación de una vez y sin errores. 
Desgraciadamente, la Ley de Máxima 
Fatalidad actúa como de costumbre. Y ello no 
es posible. 
Para paliar en lo posible esta triste realidad, 
el Amstrad Basic incorpora los comandos 
TRON y TROFF, Son útiles, pero pueden 
meiorarse mucho. 
Programación os dice cómo. 
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24 Banco 
de pruebas 
El campo de aplicación de los ordenadores, 
de tu Amstrad, abarca un amplio espectro de 
posibilidades, 
No sólo está restringido a cálculos científicos y 
técnicos, sino que cosas como el arte, el diseño 
asistido por ordenador y la creación de gráficos 
se encuentran a tu alcance, 
Para los artistas, banco de pruebas analiza un 
programa diseñador de gráficos en disco. 


Código 28 
máquina 
Siempre en la línea de encontrar una 
aplicación práctica a todo lo que hemos 
'aprendido hasta ahora, AMSTRAD Semanal 
emprende con vosotros el apasionante camino 
de la animación de gráficos en lenguaie 
máquina, descansando, por ahora, del árido 
pero necesario estudio de nuevas instrucciones 
del IBO, 
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Servimos a tiendas 
Abrimos sábados por la tarde 


Embajadores, 90 Tfno. 2270980 
28012 Madrid 



APRENDER 
AJEDREZ DE LOS ORDENADORES 


.. 


I ordenador más potente del 
mundo se llama Cray 1 y cuesta na- 
da menos que 14 millones de dóla- 
U", "ente, posee un progra- 
ma de ajedrez que es capaz de eva- 
luar 1 00,000 jugadas por segundo y 
podemos asegurar que juega muy 
bien, tanto que el programa BLITZ, 
desarrollado por Robert Hyatt es el 
campeón del mundo de ajedrez en 
ordenadores, 
Bueno, más bien debiéramos de- 
, , 
Clr era, porque un programa cOrrIen- 
do en un ordenador «enano» com- 
parado con el Cray, lo ha derrota- 
do completamente en una partida 
que se celebró entre ambos progra- 
mas, 
El programa ganador está basa- 
do completamente en técnicas de In- 
teligencia Artificial y consta de dos 
módulos: uno llamado ORACLE, de- 
sarrollado nada menos que por 
Hans Berliner, un experto en lA y 
campeón del mundo de Ajedrez por 
correspondencia. Oracle es capaz 
de encontrar la estrotegia a seguir en 
una posición dada y su resultado se 
pasa al segundo módulo del progra- 
ma, SEARCHER, desarrollado por 
Carl Ebeling, estudiante graduado 
de la Universidad Carnegie Mellan 
(santuario de la lA), 
Este segundo módulo es el que 
examina la increíble cantidad de 
170.000 jugadas por segundo. ¿Có- 
mo lo hace? pues SEARCHER posee 


nada menos que 64 microprocesa- 
dores, cada uno dedicado específi- 
comente a una casilla del tablero de 
ajedrez, 
Cuando una pieza se coloca en 
una casilla, el procesador dedicado 
a ella examina la situación y produ- 
ce una salida o camino factible; si és- 
te desplaza otra pieza o piezas a 
otras casillas, otros procesadores to- 
man control del asunto, repitiéndo- 
se el proceso hasta que la evaluación 
finaliza, 
Esto, combinado con las técnicas 
de lA de ambos módulos del progra- 
ma, ha sido suficiente para aplastar 
al Cray 1 en un precioso ataque al 
rey. 
El programa ganador puede eva- 
luar 30 millones de jugadas distintas 
en los 3 minutos que posee para 
efectuar una movida, 
A pesar de todos estos impresio- 
nantes números, los expertos piensan 
que el campeón mundial humano 
(Kárpov o Kasparov) haría trizas al 
programa que desde ahora ostenta 
el centro mundial de ajedrez por or- 
denador, Por lo visto, la mente hu- 
mana se las arregla pero que muy 
bien. 
Sin embargo, Berliner especula 
con que en 1990 más o menos ga- 
nará los 100.000 de premio estipu- 
lados para el creador del programa 
que derrote al campeón mundial de 
ajedrez hurr.ano, 
Lo que ya es una realidad es que 
los grandes maestros de ajedrez es- 
tán aprendiendo de ordenadores có- 
mo jugar las posiciones más simples 
de los finales de partida (al menos en 
la Unión Soviética), 
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Amstrad clama a los cuatro vien- 
tos que posee el ordenador más fia- 
ble, con menos porcentaje de máqui- 
nas devueltas. 
Basándose en un estudio realiza- 
do en Inglaterra por una importan- 
te cadena de tiendas de ordenado- 
res, resulta que han sido devueltos un 
1,8% de Amstrads, frente a un. 
30,6% de Spectrum, por ejemplo, Sin 
embargo, para elaborar la estadís- 
tica no se ha tenido en cuenta los mi- 
cros devueltos 30 días después de su 
compra, sino el stock actual. 
De todas maneras, es una noticia 
que incremento la seguridad de los 
poseedores y futuros compradores 
de Amstrad en la fiabilidad de sus 
máquinas, por lo que la compañía 
británica ha tratado de darle todo el 
bombo posible, 


JUEGOS 


Software Projects ha lanzado al 
mercado un disco conteniendo los si- 
guientes juegos: Manic Miner, Binky, 
Jet Set Willy y Karls Treasure Hunt, 
El paquete será comercializado en 
España, al precio de 3.890 ptas, 
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Esta semana dejaremos atrós las cadenas y veremos cómo se pueden utilizar las 
instrucciones READ y DATA para asignar valores a las variables. Puede que esto no le 
parezca muy excitante, pero al final del artículo debemos ser capaces de ver lo útiles 
que pueden llegar a ser. 


omencemos echando 
un vistazo al programa 1, 
odo lo que hace es dar, o asigna, valores 
a las variables numéricas x, y y z, sumarias y 
escribir el resultado, Hemos asignado unos va- 
lores tan sencillos como 1, 2 Y 3. 


Programa uno 


Muy bien, no es que vayamos a concederle 
la medalla al programa del año, pero lo que 
le falta de complejidad lo compensa con su efi- 
cacia, Funciona y cumple su finalidad, 
Dese cuenta de lo poco flexible que es este 
programa. Si queremos sumar 6, 7 Y 8 utili- 
zando la misma estructura tenemos que vol- 
ver a escribir las líneas 20 a 40. Como pode- 
mos comprobar, asignar valores a las varia- 
bles utilizando simples instrucciones LET pue- 
de ser bastante rígido, 
Por supuesto que hay otras maneras de asig- 
nar valores a las variables, Vamos a encon- 
trarnos con dos de ellas ahora mismo. Ojee 
el programa 2, que utiliza el menos evidente 
de ambos métodos. 


Programa dos 


Aquí hemos utilizados nuestro (esperamos) 
familiar bucle FOR,.. NEXT para sumar 1, 2 
y 3. El bucle se repite tres veces. 
En la primera pasada, «bucle» es igual a 
1 mientras «suma» se inicializa a O, El resul- 
tado es que la línea 40 almacena 1 (1 + O) en 
«suma». La siguiente vuelta «bucle» es 2, 
mientras que «suma» comienza con el va- 
lor 1 y termina con el valor 3, Le dejamos que 
imagine lo que ocurre en «suma» durante el 
tercer ciclo cuando «bucle» vale 3. 
De este modo, hemos utilizado «suma» pa- 
ra guardar el «running total» de los suce- 
sivos valores de «bucle» y por lo tanto se ha 
incrementado en 1, 2 y 3. 
A propósito, realmente no necesitamos la lí- 
nea 20, el Amstrad asume automáticamen- 
te que una variable numérica es O hasta que 
no le.demos otro valor, Sin embargo, esto no 
lo hacen todos los micros, y algunos interrum- 
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pen el programa y dan un mensaje de error 
si no hemos asignado todavía un valor a la va- 
riable, aun si éste es un simple cero, 
Así que, aunque la línea 20 sea redundan- 
te en este caso, es un buen hábito ponerlo, Y 
nuestro Amstrad tiene bastante memoria co- 
mo para hacerle frente a un pedacito de có- 
digo redundante. 
Aunque todo esto pueda parecernos un po- 
co exagerado para sumar 1, 2 y 3, probemos 
adaptar el programa 2 para sumar todos los 
números enteros desde el1 011,000, Veremos 
que gana al método del programa 1 por la 
mano. 
Puesto que la variable de control del bucle 
se incremento la misma cantidad en cada pa- 
sada, los valores de «bucle» siguen una regla 
fija, Resulta fácil sumar, digamos 1, 3 y 5 ó 
4, 8, 12 y 16 usando este método. Todo los 
que tenemos que hacer es variar el paráme- 
tro STEP del bucle para permitir a la variable 
de control alcanzar los valores requeridos, ¡Es 
más fácil hacerla que leerlo! En el caso del pro- 
grama 2 debemos usar: 
30 FOR bucle= 1 TO 5 STEP 2 
en el primer caso y: 
30 FOR bucle=4 TO 16 STEP 4 
para el segundo, 
Los problemas surgen cuando intentamos 
utilizar el método para sumar 1, 7 y 23. Así 
que, aunque el programa 2 pueda ser mejor 
que el programa 1, todavía tiene inconvenien- 
tes. 
El programa 3 presenta un método mucho 
más flexible de que un programa obtenga in- 
formación. En realidad consiste en introducir 
los datos desde el teclado cuando el Ams- 
trad nos lo pida, 


Programa tres 


Cuando eiecutemos el programa 3 veremos 
cómo puede encargarse de sumar 1, 7 y 23. 
En efecto, es ton flexible que puede sumar tres 
números cualquiera que nosotros deseemos, 
siempre que los números introducidos estén 
dentro del rango del Amstrad, 
EII N PUT de la línea 50 es el que da al pro- 
grama esta adaptabilidad tan fantástica, Co- 
mo todo en la vida nada es completamente 
bueno, y la utilización de INPUT tiene sus des- 
ventajas, aunque sea muy adaptable, 


e 
> 
5? 
t 
'> 
11 


Una de las principales es que nos mantene, 
mas en el programa hasta que respondemos 
con la entrada de todos los datos que nos pi- 
da, E imaginémonos probando a sumar mil nú- 
meros usando este método.., 
Además tenemos que introducir todos los nú- 
meros cada vez que ejecutemos el programa. 
Un error al teclear nuestras respuestas y ten- 
dremos que volver directamente al principio 
otra vez, o permitirnos el lujo de alguna rápi- 
da operación aritmética mental. 
Así que cada uno de los tres métodos utili- 
zados en nuestros tres primeros programas pa- 
rece tener inconvenientes, ¿No estaría 
muy bien que hubiera un camino pa- 
ra dar valores a las variables que 
fuera flexible, que cogiera cualquier 
cantidad de números y no supusiese 
teclear nada mientras el programa 
está ejecutándose? 
Veamos el programa 4, que reúne todos es- 
tos criterios, 


Programa cuatro 


Como podemos observar, se suman los nú- 
meros de la última línea, nuestros viejos co- 
nocidos 1, 2 y 3, y saca en pantalla el resulta- 
do, Lo interesante es la forma en que lo hace. 
Antes de entrar en su funcionamiento, va- 
mos a ver una parte familiar del programa 4, 
Como antes, la línea 20 no es estrictamente 
necesaria, pero es un hábito muy bueno en la 
programación. Las líneas 30 y 60 son idénti- 
cas a las del programa 3, formando un bucle 
FOR... NEXT que gira tres vueltas, 
Hasta la línea 50 es la misma, utilizando las 
variables «suma» y (<número» para con- 
tener los «running total». Y la línea 70 im- 
prime el valor de «suma» cuando el progra- 
ma sale del bucle, Así que, ¿cuál es esa 
gran diferencia entre los programas 
3 y 4? 
La respuesta está en la línea 40, Aquí, en 
lugar de nuestra vieja amiga INPUT, nos en- 
contramos un READ, Y también en una línea 
nueva, la línea 80, que es una instrucción DA- 
T A y 1, 2 y 3, 
Sin embargo, ésta no es toda la diferencia. 
En el programa 3, el INPUT de la línea 40 es- 
taba allí para recibir el valor de (<número». 
Se lo teníamos que dar desde el teclado, 




rirneros 
pasos 


En el programo 4 el READ de lo línea 40 ha. 
ce exactamente lo mismo, tomando un volar 
y almacenándolo en «número», Sólo que 
ahora el Amstrad no espero del teclado el 
siguiente volar de «número», ni lo busca en 
lo línea 80 donde están contenidos los datos. 
En otros palabras, cuando hoy un INPUT el 
micra busco los valores de uno variable fuero 
del programo, mientras que si hoy READ mi. 
ra en otra porte del mismo programo donde 
están almacenados dichos valores. 
En lo primero pasado de bucle «sumo» es O, 
Lo línea 40 dice 01 Amstrad que leo (READ) 
un valor en lo línea de dotas y lo coloque en 
lo variable «número», 
Muy obediente, el micra busca o través del 
programa lo primero línea que existo comen- 
zando por DATA y tomo el primer volar que 
hoyo en ello, En este caso es 1. Entonces el 
programo va o lo línea 50 que funciono en lo 
forma usual, almacenando el «running to- 
tal», 1, en «sumo». 
En lo segundo vuelto del bucle «suma» co- 
mienzo con el volar 1. Lo línea 40 le dice 01 
computador de nuevo que leo (READ) un volar 
para «número», Como antes, busca una lí- 
nea que comience con DATA, pero esta vez to- 
ma el segundo valor de los que hay, en este 
caso 2. Así «número» se convierte en 2 y, des. 
pués en la línea 50, «sumo» se convierte en 3, 
La tercera vez que se hace el bucle, el R EAD 
de la línea 40 dice al Amstrad que busque 
el tercer valor en los datos de lo línea 80, la 
cifra 3, Se almacena en «número» y la lí- 
nea 50 ve a «suma» convertirse en 6. Aho- 
ra termina el bucle y el PRINT de la línea 70 
da el resultado. 
Observemos que la línea 80 -la que co- 
mienza con DA T A- no hace nada, sólo con- 
tiene los datos, Sin un READ en alguno porte 
que haga uso de ellos, es inútil. 
Recapitulemos, READ provoca que el pro- 
grama busque uno línea que comience con 
DATA y almaceno los valores que contiene en 
lo variable que sigue al comando READ, El mi- 
cra se mantiene 01 tonto del orden en lo listo 
de los dotas y coda vez que obedece uno ins- 
trucción READ tomo el primero de los valores 
que no ha utilizado, 
Dicho de otro modo, avanzo secuencialmen- 
te en lo listo de dotas, no utilizando nunca el 
mismo volar dos veces. 
Como decíamos antes, el comando READ 
trabajo exactamente igual que el comando IN- 
PUT excepto que en lugar de buscarlo en el 
teclado, el ordenador miro en el mismo pro- 
gramo el volar que debe asignar a lo variable. 
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En cierto modo es una combinación de las 
mejores características de los tres métodos an- 
teriores, pero sin tener que sacrificar nada de 
su flexibilidad. 
Esta adaptabilidad se la debemos al hecho 
de que si queremos dar al programa valores 
diferentes todo lo que debemos hacer es cam- 
biar los números después de DATA de la línea 
80. Así que para sumar 56, 78 y 345 debe- 
mos alterarla para que los lea: 
80 DATA 56)8,345 
mientras que: 
80 DATA 11,22,33 
nos da la suma de 11, 22 y 33, 
No es necesario que tengamos todos nues- 
tros datos en una línea, El programa 5 usa 
READ y DATA para sumar 10 números. 


Programa cinco 


No debemos tener ningún problema para 
ver que el método utilizado es el mismo que 
el del programa 4. De cualquier manera co- 
mo ahora sumamos 10 números el bucle repi- 
te su ciclo 10 veces, leyendo (READ) cada vez 
un dato más. 
,vemos que ahora hay dos líneas que co- 
mienzan con DATA, las líneas 80 y 90. Nos 
resulta más fácil seguirlo así, dos líneas de cin- 
co números se ven mejor que una de 10. 
Para el Amstrad no hay diferencia, Cuan- 
do se encuentra con un READ comienza con 
el primero de los datos que contiene el primer 
DATA y sigue tenazmente la secuencia, En este 
caso lee 12, y luego 5, 34, 6 y 7 en este or- 
den, La sexta vez que repite el bucle el READ 
de la línea 60 pide otro valor para «cifras», 
No sintiéndose desalentado por haber al- 
canzado el final de la línea 80, el Amstrad 
c
ntinúa, encuentra la siguiente línea que co- 
mienza por DATA, y toma el primer valor que 
aparece, En este caso es la línea 90 y su pri- 
mer valor es 3. En las cuatro vueltas siguien- 
tes del bucle el micra tiene que leer (READ) por 
turno 67,54,1 y 2, 
Habremos notado en estos dos últimos pro- 
gramas que las comas en la línea de datos ac- 
túan como separadores. Se encuentran entre 
los números diciendo al micra dónde acaba 
uno de los datos y dónde comienza otro, Evi- 
dentemente, son muy importantes y si una se 
omite o se desplaza, las consecuencias pue- 
den ser calamitosas, 
Veamos esto; probemos cambiar la línea 80 
del programa 5 por: 
80 DATA 125,34,6) 
Es lo que resultaría si omitimos la coma en- 
tre 12 y 5 al teclear el programa. Ahora cuan- 
do lo ejecutemos nos dará el mensaje: 
DATA exhausted in 40 
(/0 orden READ ha intentado leer más dotas 
de los incluidos en líneas DATA) y el progra- 
ma se para. 
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Lo que ha ocurrido es que el bucle FOR.., 
NEXT ha intentado repetir el ciclo 10 veces co- 
mo se le ha ordenado, En las nueve primeras 
no existen problemas, ya que hay, después de 
nuestro error de escritura, nueve números en 
la lista de datos, 
En la décima vuelta del bucle l la línea 40 
dice al micro que READ otro valor de la lista 
de datos. Desgraciadamente cuando el micro 
va a la línea 90 el almacén está vacío. No hay 
ningún dato disponible, 
Esto le coloca en un dilema. Se le ha dicho 
que tome 10 valores de la lista, pero allí sólo 
hay nueve, El resultado es una «crisis nervio- 
sa» y el programa realiza un alto con el men- 
saie anteriormente citado: 
DATA exhausted in 40 
como una especie de explicación. 
Pero no es una explicación muy buena, Se- 
ñala una línea equivocada, Después de todo, 
el error se ha cometido en la línea 80 y el pro- 
grama sobrepasa el final de los datos de la 
línea 90, pese a todo el mensaje dice que el 
problema está en la línea 40. 
De algún modo esto es cierto, ya que el pro- 
blema ha ocurrido cuando el micro intenta 
obedecer el READ de la línea 40 por décima 
vez, Así que puede iustificarse este mensaje. 
No obstante, aun así es una molestia, La mi- 
tad de los problemas que tiene lo gente al te- 
clear un programa ocurren cuando se intro- 
duce un error en alguna instrucción DATA. El 
programa se interrumpe y el mensaje de error 
señala a un READ que está a kilómetros de dis- 
tancio del dato infractor. 
El pobre mecanógrafo sigue mirando el 
READ y sabe que es correcto a pesar de que 
el mensaje le dice que el defecto se encuentra 
en la línea 40. Por lo tanto, se da por vencido 
desesperado, asumiendo que el programa no 
funciona, 
La moraleja es que, si nos encontramos con 
un mensaje de error que señale una línea con 
un READ en ella, revisemos cuidadosamente 
las instrucciones DATA. 
Y por si aquel engañoso mensaje de error 
no fuera suficiente, podemos cometer otra 
equivocación mecanogrófica en una línea DA- 
TA que no nos da ningún mensaje en absolu- 
to, Veamos lo que queremos decir intentan- 
do cambiar la línea 80 a: 


80 DATA 1,2,5,34,6) 
Aquí en lugar de omitir una coma y «pe- 
gar» dos números juntos como antes, nuestra 
errata consiste en añadir una coma entre el1 y 
el2, que debía ser un 12. Ahora si contamos el 
número de datos en las líneas 80 y 90 nos en- 
contraremos que son 11, Pero el bucle sólo re. 
pite el ciclo 10 veces así que, ¿qué ocurre? 
Ejecutemos el programa y lo veremos, 
El resultado es que el programa funciona, 
pero nos da una respuesta «equivocada», 
En realidad el resultado no está equivocado, 
nos encontraríamos con que 180 es el resul- 
tado de sumar los 10 primeros datos. El pro- 
blema está en que los 10 pri meros datos no 
son ¡los 10 datos que queremos sumar! Nues- 
tro descuidado mecanógrafo los ha desorde- 
nado, 
Esta clase de equivocación puede ser un ver- 
dadero problema, Cuando hoy menos datos 
en lo lista el Amstrad nos dirá lo mismo que 
antes, El mensaje de error puede que sea un 
poco engañoso, pero ahí está, 
Sin embargo, si hay más datos de los que 
se esperan, todo lo que hace el micra es co- 
ger la cantidad que necesita e ignorar el res- 
to. No hay mensaje de error, 
En nuestro caso el programa devuelde el va- 
lor 180 por el error de los datos, en vez de 
191 como .debiéramos tener si el mecanógra- 
fo no hubiese estado soñando despierto. El 
computador los ha sumado correctamente, pe- 
ro lo ha hecho con números incorrectos, Y sin 
ningún mensaje de error es muy fácil cometer 
un descuido. 
Hoy otro problema que no se muestra en es- 
te programita. El Amstrad se mantiene al 
tonto de dónde está el principio de la lista de 
dotas por medio de lo que conocemos como 
un puntero de datos, Todo lo que hace es 
apuntar al siguiente dato de lo listo que va o 
ser utilizado. Ahora cuando nuestro meconró- 
grafo haya escrito la línea 80: 
80 DATA 1,2,5,34,6) 
el programo 5 parece realizar el trabajo co- 
rrectamente y termina, El puntero de datos es- 
tá apuntando 01 siguiente de la lista, el2, pe- 
ro como el programa acabó, este dato no se 
utiliza, 
En un programo más largo, sin embargo, 
puede haber más de un comando READ. Si el 
programa 5 tuviera otra READ escondido en 
alguna parte el primer dato a tomar sería el 
que está indicado por el puntero de datos, que 
es 2. A causa de la coma equivocado todos 
los READs sucesivos estarán desplazados un 
dato, Esto puede causar estragos en un pro- 
grama largo y puede ser muy pesado averi- 
guar el paradero del error. 
Lo moraleja de todo esto es que seamos muy 
cuidadosos al teclear los líneas DATA, 
Hasta aquí hemos tenido nuestras listos de 
datos al final del programa, Sin embargo, no 
tiene por qué ser así, como lo demuestro el 
programa 6. 
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Programa seis 
Aquí las líneas DATA están colocadas por 
todas partes. Para el Amstrad no hay dife- 
rencia porque el puntero de datos se mantiene 
al tanto de las cosas. No obstante, es una bue- 
na costumbre en la programación colocar nues- 
tras listas de datos juntas. Normalmente, se 
hace al final en los programas cortos o, en ca- 
so de un programa más largo que podría te- 
ner varias listas de datos diferentes, en los lu- 
gares que por lógica sean los más apropiados. 
Por lo tanto, podemos encontrar todos los 
datos de los salarios con la subrutina que cal- 
cula la paga y todos los datos de los nombres 
y direcciones de los empleados cerca de la su- 
brutina que imprime las nóminas, 
Cuando hayamos metido el programa 6 en 
nuestro micra, cambiemos la línea 50 de mo- 
do que lea: 50 DATA 34,45,56, o sea, aña- 
damos una coma después de 56, Ahora eje- 
cutemos el programa y veamos qué pasa. En 
lugar de nuestro total previsto de 315 el re- 
sultado es 237, Sin embargo, hemos usado los 
mismos datos. ¿O no? La diferencia entre 315 
y 237 es 78, que es el último dato de la línea 
90. ¿No es más que una coincidencia? 
La respuesta, por supuesto, se encuentra en 
la coma que hemos añadido al final de la lí- 
nea 50. Como dijimos antes, las comas se uti- 
lizan como separadores entre los datos, Cuan- 
do el Amstrad encuentra una coma espera 
algún dato inmediatamente detrás, Y si no hay 
ninguno toma el valor O. 
Esto es lo que nos ha ocurrido al añadir una 
coma al final de la línea 50, Aunque aquí no 
hay datos, el Amstrad tiene asumido que los 
hay y obtiene «desde algún sitio)) el va- 
lor O, Y, efectivamente, suma un dato del cen- 
tro de la lista así que ahora tenemos ocho en 
vez de los siete previstos, El bucle sólo hará 
el ciclo siete veces así que el pobre y viejo 78 
se queda fuera. 
Si nos resulta arduo de entender, añadamos: 
65 PRINT desdealgúnsitio 
y veremos que el O se ha colocado entre 56 
y 57, Una vez más la moraleja es que tenga- 
mos cuidado con las comas en las líneas DATA, 
Esto es todo nuestro recorrido de esta se- 
mana, Esperamos que haya visllJmbrado lo 
potentes y versátil es que pueden ser los co- 
mandos READ y DATA, Y también el cuidado 
que debemos tener con las listas de datos, 
Nos ocuparemos de ellos de nuevo pronto, 
pero por el momento le dejamos con el pro- 
grama 7, 


Programa siete
 
Aquí READ está seguido de dos variables, 
«primero)) y «segundo)). ¿Cómo funcio- 
na? ¿«Primero)) toma los valores de los da- 
tos de la línea 90, mientras «segundo» utiliza 
la línea 1 OO? ¿O es de otra manera? Lo sabre- 
mos la próxima vez. 
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10 REM PROGRAMA 1 
"C\ :-:::: 1 
3() y-=? 
4(1 .::="""; 
5') surnc"\ =:: +y+z 
AO PRINT Sl\mC\ 


10 R
M PROGRAMA 11 
:'0 sum
:::O 
30 FOR bucle=1 TO :::. 
40 c,uma=suma+bucJe 

O NEXT blJcle 
A() PRJNT suma 


10 REM PROGRAMA 111 
20 sumc\,=O 
30 FOR bucle=l TO 
 
40 INPUT "Numero? " 
numero 
50 suma=suma+numero 
60 NEXT bucle 
70 PRINT suma 


10 REM PROGRAMA IV 
20'suma=0 
30 FOR bucle=l TO 3 
40 READ numero 
50 suma=suma+numero 
60 NEXT bucle 
70 PRINT suma 
80 DATA 1
2
3 
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(¡ 
-:':() 
4() 
SO 
t,O 
7n 
80 
90 


RE M 'HOGF\AI'1A V 
tot-r\ -=0 
FOR ciclo=J 10 10 
RE A ) cifri'ls 
totR =totc\,l.clfras 
, 
NE"XT ciclo 
PRI
T toti'll 
DAT 1'2
5,":,4,6,7 
DAT \ 3
67

4,J,:' 


10 REM PROGRAM
 VI 
'":'() aCllmlul ador=-(J 
:;() DATA 12
23 
4() FOR bur 1 e= 1 1 (1 I 
I 

O DATA 34.45,S
 
60 READ Ide
de
l g un--:.j t 1 e' 
- I 
70 acumulador=acumulador 
+desdealgunsitlo 
80 NEXT buclp 
90 D{
TA f:-.7, 78 
i ' 
100 PRINT acumulddor 
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t 
10 REM 
ROGRAMA VII 
20 sum 1=0:suma2=0 
30 FOR:bucle=l TO 5 
40 REAril p rimero,spgundo 
50 sumal=sumal+primero 
60 suma2=suma2+segundo 
70 NEXT bucle 
80 PRINT sumal
suma2 
90 DATA 1
2
3
4
5 
100 DATA 6
7
8
9
10 
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SUPER ORGANO MUSICAL 


, 


n ;Ii is 


La músíta, una de las formas más bellas de creación artística, también ocupa su lugar en 
el mundo de los ordenadores. 
Análisis esta semana estudia la forma de conseguir hacer del teclado del Amstrad un 
órgano monofónico, capaz de generar 17 notas distintas. 


10-30 Lo mismo de siempre, 
40 Marca la parte del programa que se 
ocupa de la definición de las variables, que 
van a contener los nombres de las notas y los 
tonos equivalentes que reconoce el ordenador, 
50 Dimensiona una matriz de variable nu: 
mérica con 17 elementos, su misión es alma- 
cenar los distintos valores de los tonos de ca- 
da nota, 
60 Dimensiona una matriz alfanumérica de 
17 elementos, que contiene los nombres de las 
notas, 
70-90 Ciclo FOR,.. NEXT de lectura de 
datos, oscila 17 veces, una por cada nota. 
80 Es la línea encargada de la lectura, ca- 
da vez que oscila el ciclo se asigna un valor 
a tono y otro a notas, repitiéndose la opera- 
ción 17 veces, 
1 00 DATA en la que se encuentran los va- 
lores que lee la sentencia READ, obsérvese que 
se alterna un valor numérico con otro alfanu, 
mérico, para que la lectura sea correcta, 
Esta estructura de datos es debida al forma- 


; oo'.I'l1llS1I°I
I': 
, ., 
'1; 

 @IIJ 

0 m[!] 
6J @]
[]
m[!]@][]@][!] 
00000000000 
O DDDDODDCJOD 


0 0 
000 
O 
000 
[JDO 
000 O 


to de la línea 80 READ dato numérico, dato 
alfanumérico, 
120 Defi;1e el botón FOdel teclado numé- 
rico de forma que al pulsar ésta, los paráme- 
tras de repetición de tecla y tiempo de arran- 
que recuperan el valor que tienen al encen- 
der el ordenador. 
El objeto de esta línea es que una vez pues- 
to en marcha el programa, los valores ante- 
riores se alteran y listar nuestro programa o 
corregir algo, no sería posible. 
Al pulsar cualquier tecla, ésta aparecerá en 
pantalla repetida varias veces, haciendo im- 
posible escribir cualquier instrucción, obligán- 


u 


10 RI t1 *"'i.*:c:t'**1"nt*
**.*ttj, tZú '':EY O. 'sp&f'd J
ey 30.2"+CHR 
20 REM "SUPER ORGA"'JO MUSICALt:: .. (12:) 
30 F\EM *1t:***:tt.t:lt:i:tt:tt:U,*lt1!f: 130 REM .t
USQUE[)A eN EL TECLA 
40 RE.., UOEF INlrlON DE NOTAS Y DO** 
TONO
" 140 SPEFD V-EY 1.2 
I'jO DIM lono(17} 150 teclaS "q2w3Q1r
t6y7Lt1qaOplO 
60 DI M not.a$(t]) 160 WHILE :.cc(l 
70 FOR n"l TO 17 170 pLtl ':!a,.15 INI<Eyt; 
BO READ tonoCn),not.,;l.'!i(n) leO IF puls
,..$ '" THE'N 170 
90 NEXT n 19n nota HISTR(t",cl.;.1i,pulsarS) 
100 DATA 47e,DO.4
t.DOtl',4='Ó.F.E '20(' IF nota O THEN 170 
.402.RE",Z79,MI.
S8,rA.

G.FA
 
10 PhINT nota$(not
) 
.319.SQL.301.S0L".2e4.LA.
68.L j?0 REM ttGENERACION DE SONIDO 
AN.253.SI.2
9,DOr.
2
,Ontt
.21
 
.
 
.RE'2.201.RFtI?,IQO.M]? "'
(J C::OtJND l,tano(notA),5.15 
110 RFM UFULSAR fO PARA CORRE 240 WFND 
GIR" 



 
¡ 
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donos a RESETEAR el ordenador para conse. 
guir el control, con la consecuente pérdida del 
programa tecleado, 
130 Señala la parte del programo que se 
ocupa de detectar en el teclado el botón pul- 
sado y buscar su nota equivalente para trans- 
mitida al generador de sonido, 
140 Modifica los parámetros de repetición 
de tecla y tiempo de arranque, para poder ge- 
nerar sonidos continuos y que el ordenador 
responda como un teclado musical. 
150 Define la variable tecla con las letras 
y números, de los botones que van a formar 
el teclado de nuestro instrumento, en total 17. 
160.240 Ciclo WHILE.., WEND, que se 
encarga de chequear el teclado y en caso de 
que se pulse alguna tecla, emitir el sonido co- 
rrespondiente, 
170 Almacena en Pulsar$, la tecla que es, 
tamos presionando, 
180 En caso de que no se esté pulsando 
ninguna, pasa el control a la línea 170, repi. 
tiendo el proceso hasta que se presione algu, 
no. 
190 Almacena en nota el número corres, 
pondiente a la posición de la tecla pulsada en 
la cadena tecla$, de forma que si pulsamos 
la e, nota tomaría el valor 5, y daría el valor 
10, ete. 
200 En caso de pulsar cualquier tecla que 
no forme parte del órgano, nota tiene el va, 
lor o, y el programa vuelve a la línea 170. 
210 Visualiza en pantalla el nombre de la 
nota que estamos pulsando, 
230 Es la línea que se encarga de produ- 
cir el sonido, el uno indica canal 1 , tono (no- 
ta) la nota que vamos a ejecutar, 5 la dura- 
ción de la misma en centésimas de segundo, 
15 el volumen del sonido. 
Para ampliar el número de notas seguir los 
siguientes pasos: 
Línea 150. Incluir detrás de la p, las nuevas 
teclas , 
Líneas 50, 60, 70. Cambiar el17 por el nú- 
mero de teclas actuales; 17 + las que hemos 
añadido, 
Línea 100, Añadir detrás de M12, el valor 
del tono y el nombre de cada nueva nota, se, 
parados por comas, 


. 


El valor del tono y el nombre de la nota, vie- 
nen especificados en las tablas de sonido de 
la Guía del Usuario, baio los nombres: Perío- 
do y Nota, 



¡NUEVO! 
SIEMPRE LOS PRIMEROS 
EN TENER LO ULTIMO 
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BASEBALL 
Impresionante simula
i6n en 3' 
dimensiones. Se puede competir contra 
el orderiador o contra otro jugador. 
No es necesario conocer el beisbol. 
Hay un modo de demostraci6n. 
Pantallas gigantes para ver de cerca la 
acci6n. 


P.V.P.: 2.100 ptas. 
Precio C, de 50ft: 1,890 ptas. 
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MICROAMIGO s.A. 


P.o de la Castellana, 268, 3,° C. 28046-MADRID. 
Te!.: (91) 733 25 00 



 AMS1RAD n 
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RAID 
Defiéndete con tu escuadrilla de aviones 
del ataque nuclear que han lanzado 
sobre ti. Tu viaje estara lleno de peligros 
hasta que llegues a las bases de 
lanzamiento de misiles enemigas, 
Tendras que destruirlos para salvar a tu 
pais de una catastrofe nuclear, Graficos 
y acci6n sensacionales. 
P,V,P.: 2,300 ptas. 
Precio C. de 50ft: 2.070 ptas. 
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MATCH DA Y 
iAhora para Amstrad! No se trata de un 
juego de fútbol cualquiera. Fantastica 
acción en 3 dimensiones y animación 
total que dan vida al fútbol. Quedaras 
maravillado con el control del balón y 
desarrollaras tu destreza y técnica 
jugando contra otro jugador o contra el 
ordenador. 
P,V.P.: 2.300 ptas. 
Precio C. de 50ft: 2.070 ptas. 
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J. 'J])l] ] 
 I 7 . ,. . Además de poder adquirir tus pro- 
gramas al mejor precio, recibirás información de forma periódica y gratuita. del mejor software que apa- 
rezca en el mercado. 


¿ 1;:: 7 
 -. I .-. J . . Así de fácil: envía- 
nos por correo tu nombre, dirección y modelo de ordenador, o bien, pide por teléfono o por correo tu pri- 
, mer programa. iY entrarás a formar parte del CIRCULO DE 80FT de forma inmediata! 



 


------------------------------- 


o si, Quiero ser SOCIO desde hoy mismo del CIRCULO DE SOFT y recibir periódicamente información de novedades de software, así como beneliciarme desde hoy mismo de los pre 
cios reducidos reservados a los SOCIOS y de sus Ofenas Espeaales. El ser SOCIO no rre obliga a COrT'(lra alguna, 
Si prefieres formalizar tu compra por teléfono puedes hacerlo llamando al 1911 733 25 OO. iiNO SE COBRAN LOS GASTOS DE ENVIO POR CORREO!! 
TITULO P,V.P, ORDENADOR 


o Tarleta VISA n.' 


o Conuaueembolso O Giro Postal O Talón adjunto a Mlcroamigo, S.A, 


Apellidos 


[ 
t 


Nombre 
Domicilio 
Localidad 


c.P, 


Teléfono 
Provincia 


Fecha caducidad 


Edad 



Programa realizado por: DYLAN HOFFMAN JAVALOYES (Elche) 
Las ideas simples normalmente son las mejores, y si no, que se 
lo digan a nuestro amigo Dylan, que con poquísimos elementos 
ha conseguido crear un juego extremadamente entretenido, de 
gran adicción y dificultad creciente. 



R 


SP
 


ara los escépticos en esto de 
la dificultad, hemos tenido la miseri- 
cordioso gentileza de indicar un po- 
co más abajo las líneas de progra- 
ma donde está la variable que la ri- 
ge y cómo se modifica para disminuir 
la dificultad del juego. 
Los jugadores tenaces tampoco 
tendrán motivo de queja: también se 
dice cómo aumentar la dificultad del 
juego, 
Animo, que sólo es un juego. 
NOTA: La dificultad se controla 
mediante la vartable CAD, de las lí- 
neas 7930 Y 877 O. A valores mayo- 
res de esta variable, la dificultad es 
menor, 


CARGAMENTO ESPACIAL 


Este juego consiste en manejar un 
personaje que tiene que cargar una 
nave espacial con cajas (8 en total). 
Para coger las cajas, tiene que ir sal- 
tando de plataforma en plataforma 
hasta llegar al otro lado de un gran 
abismo, coger la caja y volver, Pero 
hay que tener mucho cuidado por- 
que las plataformas suben y bajan, 
y si saltamos a una en movimiento 
nuestra muerte es segura. 
El personaje se maneja con las te- 
clas de cursor hacia derecha e iz- 
quierda, 
12 M/CROH088Y AMSTRAD 
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SUBRUTINAS 


3000-3660 
4000-4070 
5000-5120 
6000-6070 
7000-7340 
8000-8130 
2500-2650 
2700-2850 


Movimiento plataformas, 
Muerte. 
Dejar caja. 
Coger caja. 
Salida nave, 
Menú final. 
Salto izquierda. 
Salto derecha, 


os. 
o. 


. 
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VARIABLES 
VARIABLE FUNCION 
hd$ (3) Hombre derecha. Cada una de las tres partes. 
hi$ (3) Hombre izquierda, Cada una de las tres partes. 
hsd$ (3) Hombre saltando derecha, Cada una de las tres partes. 
hsi$ (3) Hombre saltando izquierda, Cada una de las tres partes. 
n$ (14) Cada una de las partes de la nave, 
dir Indica la dirección de movimiento del personaje. 1: 
derecha, 2: izquierda. 
hx; hy Coordenadas x e y, de posicionamiento del personaje, 
Corresponden a la posición superior izquierda del dibujo, 
v Vidas 
v$ Dibujo que representa las vidas, 
c Total de cajas recogidas, 
p Número de pantalla (nave llena), 
pu Puntos. 
re Récord, 
cad Múltiplo de RND que se encarga de aumentar 
progresivamente la cantidad de plataformas que se 
mueven al mismo tiempo, 
movl; mov2 Variables para determinar el movimiento de las 
plataformas. 
mov Indica si hoyo no movimiento, O: sin movimiento; 1: con 
movimiento. 
opm Opción movimiento, 
des (5) Indica si está activada la opción de desplazamiento de la 
plataforma indicada en el subíndice, o: desactivada; 1: 
activada, 
dire (5) Dirección de la plataforma indicada en el subíndice. 1: 
bajo; 2: arriba, 
xe (5); ye (5) Coordenadas de la posición de la plataforma indicada en 
el subíndice, 
cn Cajas en una nave, 


. 
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Oro 
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1 REM*********************** 
*********** 
2 REM CARGAMENTO ESPECIAL 
3 REM Dyl
n Hoffman Javaloyes 
4 REM****************************** 
**** 
5 MODE 1:BORDER O:INK O
O:PAPER 0:1 

W 1 
 3
 26: LOCATE 1'?
 12: F'EN 1: PRINT" 
PARE LA CINTA":F"OR n= 1 TO 1000:NE) 
i n:LOr:ATE 1
24:PRINT" Pulse ur 
a t.ecla para continLlar " 
6 IF INKEY$="" THEN 6 
7 1 NI< 1 
 26: Cl_S 
10 GOTO 65490:'caracteres castellar 
os 

O DIM n$(14):GOSUB 60000:'caractef 
es juego 
30 LOCATE 5
13:PRINT CHR$(174)+"QU 
ERES INSTRUCCIONES? (S/N)" 
40 IF INKFY(60){}-1 THEN 1000 
50 IF INVEY(46){}-1 THEN 1900 
60 GOTO 40 
1000 'instrucciones 
1010 CLS 
1020 LOCATE 11,1:PRINT"CARGAMENTO E 
SPACIAL" 
1030 PRINT:PRINT:PRINT" Tu misi¥n 
en ste juego es bastante sencill 
a: debes llenar l
 nave espaci
l co 
n cajas (en cada nave caben8 cajas) 
P
r
 llegar hasta las cajas ti en 
R5 que ir saltando de mbolo en 
mbolo
 pero "; 
1.035 PRINT"teniendo cuidado de no s 
altar cuando es-"; 
1040 PRINT"t bajo
 o no quedarse e 
n uno que est apunto de moverse. S 
iempre que un mbolo va a moverse s 
u base cambia de color. Para m 
overte utiliza los cursores de dere 
cha e izquierda. Cada 10 pantallas(l 
O n
ves llenas) ganas una vida extr 



 .. & ' '-- 
_ AJ A s : o. , 
PANTALLAS: o 
UNTOS: 2 
ECORD: o 


"" 


'"" 


8." 


" 


1050 PRINT:PRINT TAB(10);STRING$(3
 
175)+" BUENA SUERTE!!!" 
1060 LOCATE 5
25:PRINT"Pulse una te 
rla para continLlar" 
l070 WHILE INKEY$="":WEND 
1900 'VARIABLES INICIALES 
1910 v=5:v$=STRING$(v
249) 
1920 c=O:p=O:pu=O:re=O 
1930 cad=4 
1940 FOR n=1 TO 5:ye(n)=12:NEXT 


. . . 
. . . 


I1 



 p >: 
JAJAS: O 
nNTAI.LAS: O 
UNTOS: . 2 

CORD: 7 
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1950 v
=II:FOR n=l TO 5:va=va+4:xe( 
n)=vc:\:NEXT 
1970 :-:c=2:yc=16 
,¿OOO 'juego 
201n 'pantalla inicial 

015 rOR n=l TO 5:des(n)=-2:NEXT 
2020 WINDOW #1,1,40,t,20:WINDOW #2, 
1,40,21,25 
2030 INK 0,11:INK 1,26:INK 
,4:INK 
3,6:PEN #1,2:PAPER #1,O:BORDER II:C 
LS 
2040 LOCATE #1,9,10:PRINT
I.STRING$ 
C2,143) 
20
0 LOCA TE #1,9,11:PRINT#1,STRING$ 
(3,143);CHR$(215) 
2070 LOCA TE #1
9,12:PRINT#1,STRING$ 
(4.143).CHR$(215) 
20
0 FO
 j=l TO 5:LOCATE #1,9,1
+j: 
PRINT#1,STRING$(5,143):NEXT 
2090 FO
 j=l TO 3
LOCATE #1,1,17+j: 
PRINT#l,STRING$(13,143):NEXT 
2100 FO
 j=1 TO 9 
TEP 8:FOR n=l TO 
18 STEP 4:LOCATE #1,14+n,11+j:PRIN 
T#1,STRING$(2,143):IF j=l TH
N pan$ 
(14+n,tl+j)=CHR$(143):pan$(14+n+1,1 
1+ j) =CHR$ ( 143) 
2105 NEXT:NEXT 
2110 FOR j=1 TO 6:FOR n=1 10 18 STE 
P 4:LOCATE #1,14+n,I?+j:PRINT #1,CH 
R$(209)+CHR$(211):NEXT:NEXT 
2120 FOR n=1 TO 18 STEP 4:LOCATE #1 
, 14+n,19:PRINT#1,CHR$(253)+CHR$(254 
) : NEXT 
2125 PEN #1.3 
2130 LOCATE'#1,39,8:PRINT#1,CHR$(21 
4) +CHR$ (143) 
2140 LOCATE #1,38,9:PRINT#1,CHR$(20 
8);STRING$(2,143) 
2145 PEN #1,2 
2150 LOCATE #1,37,10:PRJNr#1,STRING 
$(4,143):LOCATE #t,35,11:PRINT#1,CH 
R$(214);STRING$(5,143) 
2160 LOCATE #1,34,12:PRINT#1,CHR$(2 
14).STRING$(6,143):FOR n=1 TO 8:LOC 
ATE'#1,34,12+
:PRINT#1,STRING.(7,14 
3);:NEXT 
2170 FOR n=1 TO 6 
2180 IF n=2 THEN PEN #1,3:PAPER #1, 
1:i=1 ELSE PEN #1,1:PAPER #1,0:i=0 
2190 LOCATE #1,2+j ,11+n:PRINT#1,n$( 
n+3) 
2200 NEXT 
2210 LOCATE #1,
8,8:PRINT#1,CHR$(25 
5) 
2220 dir=1:xh=11:yh=8 
2230 FOR n=1 TO 3 
2240 LOCATE #l,xh,yh+en-l):PRINT#l, 
hd$(n) 
2250 NEXT 


2260 MOVE 194,220:DRAWR 348,0,3 
2300 'ventana inferior 
2310 PAPER #2,1:PEN #2,3:CLS#2 
2320 LOCATE #2,1,1: F'RINT#2, "VIDAS: 
";V$ 
2330 LOCrHE #:::-,1,2: F-'RINHt2, "r.Ac1AS: 
"; C 
2340 LOCATE #2,1,3:PRINT#2,"PAN1ALL 
AS: ";P 
2350 LOCATE #2,1,4: PF\INT#2, "F'UNTOS: 
";PU 
2360 LOCATE #2,1,5:PRINT#2,"RECnFiD: 
";RE 
2400 'movimiento 
2410 GOSUB 3000 
2420 IF INKEY(8){)-1 OR JOyeO)=4 TH 
EN 2500 
7430 IF INKEyel)<>-l OR c10yeO)=8 TH 
EN 2700 
2440 GOTO 2410 
2500 'salto izquierda 
2505 SOUND 1,70,10,5 
2510 CAL.L 
(BD 19 
2520 IF xh=11 THEN 2410 
2530 FOR n=l TO 3 
2540 IF car=l AND n=2 THEN LOCATE # 
1,:-:h-1,yh-l+n:PRINT#1," "ELSE L 
OCATE #l,
.:h,yh-l+n:PRINT#l," " 
2550 NEXT 
2560 xh=xh-2:PEN #l,l:FOR n=l TO 3: 
LOCATE #1,xh,yh-3+n:PRINT#1,hsi$(n) 
:NEXT 
2570 GOSUB 3000:PEN #1,1:FOR n=l TO 
3:IF car=1 AND n=2 THEN LOCATE #1, 

,:h,yh-3+n:PRINT#1," "ELSE LOCATE 
#1,>:h:'lyh-3+n:F'RINT#1,11 II 
2575 NEXT 
2580 JF xh=33 THEN xh=xh-2:yh=yh+1 
ELSE IF xh=13 THEN xh=xh-2:yh=yh-1 
ELSE 
<h=>:h-2 
2590 FOR n=l TO 3:LOCATE #1,xh,yh-l 
+n:PRINT#l,hi$(n):NEXT 
2600 IF xh=11 THEN 2650 
2610 IF pan$(xh,yh+3)=CHR$(32) THEN 
4000 ELSE 2410 
2650 IF car=1 THEN 5000 EL SE 2410 
2700 'salto derecha 
2705 SOUND 1,70,10,5 
2710 CALL 
(BD19 
2720 IF xh=35 THEN 2410 
2730 FOR n=l TO 3 
2740 IF car=1 AND n=2 THEN LOCATE # 
1 ,:<h-l,yh-l+n:PRINT#l," "ELSE L 
OCATE #1,:<h,yh-1+n:PRINT#1," " 
2750 NEXT 
2760 xh=xh+2:PEN #l,l:FOR n=1 TO 3: 
IF car=1 AND n=
 THEN LOCA TE #1,xh- 
1,yh-3+n:PRINT#1,hsd$(n) ELSE LOCAT 
E #1,xh,yh-3+n:PRINT#1,hsd$(n) 



 


.. 


.. 
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2765 NEXT 
2770 GOSUB 3000:PEN #1.I:FOR n=1 TO 
3:IF car=1 AND n=2 THEN LOCATE #1. 
:-
h-1,yh-3+n:PRINT#1," "ELSE LOCA 
TE #1,:-
h,yh-3+n:PRINT#1." " 
2775 NEXT . 
2780 IF xh=13 THEN xh=xh+2:yh=yh+1 
El SE IF :.
h=33 THEN }
h=::h+2:yh=yh-l 
ELSE :-:h=:.
h+2 
2790 FOR n=1 TO 3:IF car=1 ANO n=2 
THEN LOCATE #1,xh-l,yh-l+n:PRINT#1. 
hd$Cn) ELSE LOCATE #l,xh,yh-l+n:PR
 
NT#l,hd$Cn) 
2795 NEXT 
2800 IF xh=35 THEN 2850 
2810 IF pan$Cxh,yh+3)=CHR$C32) THEN 
4000 ELSE 2410 
7850 IF car=O THEN 6000 ELSE 2410 
3000 'movimiento plataformas 
3010 movl=INTCRNO*ABSCcad)+I):mov2= 
INTCRNO*ABSCcad)+l) 
3020 IF mov1=mov2 OR mov=1 THEN 303 
O ELSE RETURN 
3030 IF movl<>mov2 THEN 3300 
3040 oDm=INTCRNO*5+1) 
3050 IF desCopm»=O THEN 3300 ELSE 
desCopm)=O:mov=l:direCopm)=l 
3300 FUR n=1 TD 5 
3305 IF desCn)}l ANO xeCn)=xh THEN 
4000 


10 IF desCn)=-l THEN 3500 
3315 IF desCn)=-1 OR desCn)=O THEN 
PEN #1,3:LOCATE #1,xeCn),20:PRINT#1 
,STRING$C2,143):desCn)=desCn)+1:GOT 
O 3500 
3320 IF desCn)}O THEN ON direCn) GO 
SUB 3510,3600 
3500 NEXT 
3505 RETURN 
3510 'desplazamiento abajo 
3515 CALL 8<B019 
3520 LOCATE #1,xeCn),yeCn)+I:PEN #1 
,2:PRINT#1,STRING$C2,143):pan$Cx
Cn 


.....- 


'" 


I 
1 
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L-- 
I I 


Ctd

; o \ 
PANTALLAS: O 
PUNTOS: ' 2 
: r"Q.RD.., 


s.rí' r' 


),yeCn)+I)=CHR$C143):pan$CxeCn)+I,y 
eCn)+1)=CHR$CI43) 
3530 LOCATE #l,xeCn),yeCn):PRINT#l. 
" ": pan$ C:-:e Cn) , ye Cn) ) =CHR$ (32) : pa
 
$CxeCn)+1,yeCn»=CHR$C32) 
3540 yeCn)=yeCn) 
1 
3550 IF yeCn)=18 THEN direCn)=2 
3555 MOVE 194,220:0RAWR 348,0,3 
3560 desCn)=desCn)+1 
3570 RETURN 
3600 "desplazamiento arriba 
3605 CALL 8<BD 19 
3610 LOCATE #l,xeCn),yeCn)-I:PEN #1 
,2:PRINT#1,STRING$C2,143):pan$CxeCn 
),yeCn)-1)=CHR$CI43):pan$CxeCn)+I,y 
eCn)-1)=CHR$C143) 
3620 LOCATE #l,xeCn),yeCn):PRINT#I, 
CHR$(209)+CHR$C211):pan$CxeCn),yeCn 
»=CHR$C209):pan$CxeCn)+1,yeCn»=CH 
R$ C 2 1 1 ) 
3630 yeCn)=yeCn)-l 
3640 IF yeCn)=12 THEN desCn)=-2:LOC 
ATE #1,xeCn),20:PRINT#1,STRING$C2,1 
43) 
3645 MOVE 194,220:DRAWR 348,0,3 
3650 desCn)=desCn)+1 
3660 RETURN 
4000 'muerte 
4005 SOUNO 1,25,70,5 
4010 v=v-l:v$=STRING$Cv,249) 
4015 IF v=O THEN 8000 
4020 FOR n=1 TO 3:LOCATE #1,xh-l,yh 
-l+n:PRINT#I," ":NEXT 
4030 xh=ll:yh=8:car=0:hd$(2)=CHR$(2 
38)+CHR$C241):hi$C2)=CHR$C246)
CHR$ 
(247):hsd$C2)=CHR$(181)+CHR$C182):h 
si$(2)=CHR$C186)+CHR$C187) 
4040 PEN #1,1:FOR n=l TO 3:LOCATE # 
1,xh,yh-l+n:PRINT#1,hd$Cn):NEXT 
4050 LOCATE #2,9,1:PRINT 
2,v$
SPAC 
E$C31-v); , 
4060 LOCATE #1,38,8:PEN #1,1:PRINT# 
1,CHR$(255) 
4070 GOTO 2410 
5000 'dejar caja 
5010 xc=xc+l:IF xc=7 THEN xc=3:yc=y 
c-1 
5020 hd$(2)=CHR$C238)+CHR$C241):hi$ 
(2)=CHR$(246)+CHR$C2q7):hsd$C2)=CH
 
$(181)+CHR$(182):hsi$C2)=r.HR$C186)+ 
CHR$ C 187) : car=O 
5025 c=c+l:pu=pu+5 
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'50
" F'EN 111. 1: LOCATE 111. ll. 9: F'RINTII 
l.hl$(
)+CHh$(:'2) 
5"4" 10CATF 111,9.8: F'RINTIII, CHR$ (255 



O
O FOR J-l TO IOO,NEXT:LOCATE 111. 
9.8:
'R[NTlll." ":lOCATF IIl.8.7:F'RINT 
IIl,CHR$(255) 
SOAO FOh J=1 TO IOO:NEXT:LOCATE 111. 
8.7:F'RINTII1." ":FOR n-l TO 
:LOCATE 
IIl,8-n.6:PR[NTlll.CHR$(25S):FOR J=l 
TO IOO:NFXT:LOCATE 1I1.8-n.6:PRINTII 
l," ": NEXT 
5070 FOR n=l TO 5:LOC
TE IIl.4.6+n:F' 
RINTlll.CHR$(255):FOR J=1 TO 100:NCX 
T:LOCATE IIl.4.6+n:F'R[NTlll." ":NEXT 
SOBO LOCATE IIl.
e.yc:F'RINTlll.CHR$(2 
55) . 
5090 LOCATE 1I
,10.
:F'RINTII2.
:LOCAT 
e 112.11.4:PRINTII2.pu 
5100 LOCATE 1I1.38.8:F'RINTIII.CHR$(25 
5) 
5105 SOUND 1.50.10.5 
5110 cn-cn+l:IF en=8 THEN 7000 
5120 GOTO 2410 
6000 'coge..- caja 
6010 LOCATE IIl,38,8:PRINTlll." " 
6C1¿O c:ar=l 
6030 hd$(2)=CHR$(240)+CHR$(239)+CHR 
$(241):hl$(2)-CHR$(246)+CHRS(248)+C 
HR$(2S0):hsd$(2)=CHRS(255)+CHR$(181 
)+CHR$(182):hsl$(2)=CHR$(186)+CHR$( 
[87)+CHR$(255) 
6040 LOCATE 1I1.34.9:FEN IIl.l:F'RINTII 
l.hd$(2) , 
6050 pu-pu+2:LOCATE 112,11,4:F'RINTII2 
.pu 

060 SOUND 1,100,10,5 
6070 GOTO 2410 
7000 'salida nave 
7005 CALL !.BDI9 
7010 n-l0:yy-9 
7020 WHILE n< 14 
7025 j 1: s-1 
7030 WHILE J< n 
7040 IF j=5 THEN PEN IIl,3:F'AF'ER 111, 
1:1 1 ELSE PEN IIl.l:PAPER IIl,O:i O 
7050 IF J-9 THEN j=10 
7060 LOCATE IIl,2+I.yy-l+s:F'RINTlll n 
<$ (J) , 
706
 s-s+1 
7070 J J + 1 : WEND 
7080 n-n+l:YY=YY-l 
7090 WEND 
7100 FOR n=1 TO 4 
7110 s=1 
7120 FOR J 1 TO 14 
7130 IF J=5 THEN PEN IIl,3:F'AF'ER 111 
l:i-l FLSE F'EN IIl,I:F'AF'ER 111.0:1 O' 
7140 IF j 9 THEN 7170 
7150 LOCA TE IIl.2+1,4-n+s:F'RINTlll nS 
(J) , 
71
() 5-....' 
7[70 NEXT 
7180 PRINTIII. TAIH2):" 
7190 NEXT 
7195 ;:=2 
7?00 FOR n TO 13 
7210 s 1 
7220 FOR J-Z TO 14 
7230 IF j-5 THEN PEN IIl.3:PAPER 111, 
1:1-1 ELSE PEN IIl.1:PAF'ER 111.0:1=0 
7240 IF J=9 THEN 7270 
7250 LOCA TE IIl,2+1,S:F'RINTlll,n$(J) 
7260 s s+l 
7270 NEXT 
7280 PRINTlll.TAB(2):" 
7290 z=;:+1 
7300 NEXT 
7310 en=0:pu=pu+l00:cad=cad-l:.c=2: 
ye 16 
7320 p-p+l:IF p MOD 10-0 THEN v-v+l 
:v<$=STRING$(v.249) 
7330 FOR n-l TO 5:ye(n)=12:NEXT 
7340 GOTO 2000 
8000 'puntuaelon final 
8010 INk O.O:INK 1,26:PAPER O:BORDE 
R O:PEN I:CLS 
8015 F'RINT"F'UNTUACION:":pu 
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8020 IF pu
..-e THEN LOCATE 14. 1
:PRI 
NT"NUEVO RECORD":..-e=pu 
8030 LOCATE 1.25:F'RINT"J-Juga..- / I- 
instrucciones / T-term\nar H 
8040 IF INKFY(45)(>-1 THEN 8100 
8050 IF INf:EY(35)<>-1 THEN 1(100 
8060 IF INVEY(51)()-1 THEN 8200 
8070 GOTO 8040 
8100 v=5:v$-STRING$(v.249):e-0:cn-n 
:p=n:pu=0:xe=2:yc=16 
8110 cad=3:FOR n=l TO 5:ye(n) 1
:NE 
XT 
8120 ea..- 0:hd$(
)-CHR$(2::8HCHR$(::4 
1):hl$(2)-CHR$(
46)+CHR$(247):hsd$( 
2)=CHR$(181)+CHR$(187):hsl$(
) CHR$ 
(186) +CHR$ (187) 
8130 GOTO 2000 
8200 CLS 
8210 GOTO 8210 
60000 'ea..-acte..-es Juego 
60005 RESTORE 60100 
60020 FOR n=189 TO 255 
60030 IF n-208 OR n=209 OR n=211 OR 
n=214 OR n-215 OR n-249 THEN 60060 
60040 READ a.b,e,d,e,f.g,h 
60050 SYMBOL n.a.b.c.d.e.f,g.h 
60060 NEXT 
60070 FOR n 179 TO 188 
60080 READ a.b.e.d,e.f.g.h 
60090 SYMBOL n.a.b.c.d.e.f.g.h 
60092 NEXT 
60095 GOTO 60200 
60100 DATA 1.3,3.7,15,15.31.63.128. 
192,192.224,240.240,248,252.0.6,0.0 
,1,1,3,7.63,127.127,255,255.255.255 
,255.252,254.254.25S
255.2S5.2S5,25 
5,0,0.0,0.128,128.192,.224.15.15,31. 
63,63,1
7,255.255,240,240.248.252.2 
52,2
4.255..255 
60110 DATA 128,2S5,255,255,25
,
55, 
;

;

;
:I;


;


;


;


;


;


;
 

.

5.¿
5.2
5.
55.25
.255.1
8.25S.2 
r;
.:"'
c::.:'

.?55
:'55.:'
5.(I.255.255,,25 





.




5
.

5,1.127
1
7.127.127 
, 1 :'7, t :-'7, 1 
7. 1 '27 
6('1
O DATA 254.2
4.254.254.254.254. 


4.

4.127.177.1
7.127.127.127,127 
,


.25
.;54

54,
54.254.254,254.25 

. I . - . 7, 1 5, :: 1 , '1 , 6,. 63. 1::'7, 127, 127. 
255,
55,
55,755.255.255.252.248.240 
.2
4.274.192.19=.128,192.2=4.240.
4 
n.248.
52,
52 . 
60t J(' O¡:-lTA -'54.. 254.254.. 
55. 255, 255. 



.
5
,255,63,:1,1
,7,7,3.3.0,O,14 

. 145. t45

('9. 1
7
137,O.O,36,36,36, 
:'6.
6.
::,o,n,164.164.148.148,148,14 
e.o.o, 1"'.7.1'7, 15::.,169.169, 169.169, 1 
69 I 169. 169, J 68, 81 . 8'5,86, 4, ""':.7, 37,37, 
149. R 1 , Bé'.. B"i 
60140 DnTn 148.4
.47.164.36.44.172. 
45, 1"'9, J
9.169.169, 169.178.:14
42.4 
:-',41.:'1.16. IR,8.9.4,48,45,45, 161, 15 
7,179.17-R,68,37.46.39.74,7:',82.228. 
1
8, IO
, IRO.77,88,1<:6.208.144.160.4 
. :? 1 , n. n. n, (). n, ,7 . 164.22,2 U). 137.84 
I ""!.
.
ó 
601
0 DATA 169.210.137,169,81,210,1 
64. 16A.::-7.o',4, 128,0.0.0,0.0.10.7,3.0 
. (lo n. (l. (l. 1 7
.. 96. 178. (J. (J, O, O. O. 7, 7, 7 
.7,7.6,:'.7.12R,24 n .192.96,240.64,12 
B,197.6.6,6.7.7.7,4.3,254.30.46,207 
.
07.47.28
2S1.7.6,5,4,415,6,7,224, 

¿4.2
4. J6.224.2
4,64.224 
60160 DATA 3.2.3
313.7.14.15,224,24 
n. 1 12:, 184, 188. 28, 28. 14, 1 , 1 5 
 3. 6, 15, 
2.1.3.774,224.224.224,224.96.192.22 
4.7.7.7.8.7.7.2.7.96.96,96.224.224, 
224.32,192.127.120,116.243,243,244. 
56.27,.274.96.160.32.3:'.160.96.224, 
7.15.14.29,29,51'>.56.112 
60170 DATA 192,
4.192.192,192,224,1 
12.240.::.7.15.31.31.63.127.255.192. 
224.740.248.248.252.254.2S5,25
,195 
,165.1S3,15
,\65,195,25S 
601RO DATA "'2.6,.62.61.63,25,30,62, 
0.128.0.0.128.0,0.0.99.124,252.248. 
:44.255.255.127.224.0.0.0.0.192.240 


· ríe Oro 


. 74(J. 1:6. (l. (l. (l. o o (l. () o (l. (l. 1 . O. O. 1 . O. 
n.no174.


01
4.1BB.2
2. 15
.I=O.124 
.7. (¡. 11. O. (1. :.. 15. 15. 198.62.63,31,9.2 
-=jC¡. ;'

I, .....
14. 1 ":'h. O. (1, 11. n. (1. (l. (1 
"'O?00 hd$(!)-CHR$(2:'6)+rHR$(?
7):hd 
$(:')-rHR$(:
R).rHR$(
4J):hd$(-)=CHR 
$ (:'4
) 'CHr,'H243) 
60
IO hJ$(I)-rHR$(
44)+CHR$(245):hl 
$(
' rHR$(
46)+CHR$(
47):hl$(3)=CHR 
$ (:-'51) +rHr<1> (
5:» 
hn

o hrd$«()=rHR$(179)+CHR$(18n):h 

d$(7)-rHR$(181)+CHk$(t82):hsd$(
)- 
" "+CHR$ (183) 
60

O hSl$(I) CHR$(184)'CHR$(1851:h 
s¡$(2)-CHR$(186)"'CHk$(187):hsl$(])- 
CHR$ ( 18R) +" " 
60
40 n$(I)-" "+CHR$(189)+CHR$(190 
).." ":n'tC.....).. "+rHR$(J91)-+rHR
(lq7 
'+f'HR$(\Q3)+r I IRf<191¡'-4 11 ":111'-0,\ 
+CHR't,(J9
)+rllr'$(14-,) >rHr,t,(J4 ) 'lHI
 
(196)"''' ":n$(4)-" "W
Jr,:$(197).rIlR$ 
19fJ)+CHR
(198)+rHR'J;(199)+" " 
6()75(' n$(:O;)'-STRINC,'Io(4,1-,41 :,,$(6)-" 
"+CHR$ (200) +STR! NGO¡ (::. 
O I ) 
CHFi$ (:,', . 
)+" ":n$(7)-CHR$(207) .rHR$(
O
)'
TFi 
ING$(2.143)'CHR$(
04)+CHR$(21
):n$( 
8)-CHR$(210)+CHR$(2n
)+BTR!NG.(
.14 
3)+CHR$(206)+CHH$(716):n$(9) CHR1C: 
12)+STRING$(4.'7)+CHR$(217) 
60260 n$(10)=CHR'J;(212) 'CHR$(218)+CH 
R$ (219) +CHR$ (
?O) +CHR$ (271) +CHR$ C'1 
7):n$(ll) ""'Cfm$(
27)+CHR$(22
)+r 
HR$(224)+CHR$(775)+" ":n$(17)=" ".e 
HR$ (2
6) +CHk$ (227) +CHR$ (228) +CHf,1 (
 
29) +" ": n$ (13) =" ""'CHR$ (2:'.0) +CHFi11
 
31)+CHR$(23?)+CHR$(23::)"''' " 
60270 n$(J4)-" "'CHR$(2
4) 'rHH'Io(

 
5)+11 
60280 DIM pan$(32.18) 
60290 RETURN 
65490 'ca..-actp..-es eastpll
n"s 
65500 SYMBOL AFTER 128 
655nl SYM80L 178.8.16,120.1
.1
4.
 
4. 122 
65502 SYM80L 129.8.16.60. 10
.17
.D
 
.60 
65503 SYMBOL 1
O,8,'h,
6,
4.24.24.6 
O 
655(14 SYMBOL 1:-'1.8.16.60.102.102. 1() 
2.60 
65505 SYMBOL 1?-:. A. 16. 102. 10
. ¡()2.1 
02.62 
65506 SYMBOL 13'.102.(1,102.102.10::'. 
102.62 
65507 SYMBOL I:':R. 126.0.770,1()2, 107. 
102,102 
65508 SYMBOL 1::5,
54.0.198.230.246, 
222.206.198 
65509 SYMBOL 1:':6.6(1.102. 1 ()2. 48. 24. n 
.24 
65510 SYMBOL 137.0.24.0.24.24.::'4.24 
.24 
65515 GOTO 20 
65534 STOP 
655::5 SAVE"CARGAMCNTO FSF'." 
""r 
 -! 
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La Revista de ordenadores de mayor venta en toda Europa 
¡SE PUBLICA DESDE AHORA EN ESPAÑA, EN FORMA DE CASSETTE! 


'10 
:1 D 
EL COR2 LA PRIMERA R;STA EUROPEA DE ORDENADORES 
AMSTRAD . /\/1 
695. 
PTAS. 


.. d e P r og ramas 
La mejor seleCClon 'd 
de juegos y utilidades, 
Z
 nOs 
en la revista de mayor I SlO 
. de Europa en orden
dores. 
Ahora repro
uc
dos en 
cassette, en aut
ntlCa 
exclusiva mundial, 


Sí, ya está confirmada la sensacional noticia. Muy 
pronto estará en los quioscos de toda España una 
selección de los mejores juegos y utilidades 
publicados por la prestigiosa Revista británica 
«YOUR COMPUTER», editados en cassette de alta 
calidad y con instrucciones en castellano, 
El prestigio alcanzado por Y our Computer, tanto 
en Inglaterra como en España y otros países, se 
debe, de una forma muy especial, a la gran 


... 


Si no encuentras la cassel1e de 
"Your Computen) en tu quiosco 
o tienda de informática, solidtala 
a nuest ras oficinas: 
SINT AX, S, A. 
"YOUR COMPUTER" 
Paseo de la Castellana, 268 
28046 Madrid 
Envía tus señas completas, 
teléfono y marca de ordenador 
e incluye talón bancario, o 
remite Giro Postal por el 
importe. 
No te cobraremos gaslos por el 
envío. 
Si prefieres pagar contra 
reembolso, entonces incluye, 
junto a tu pedido, dos sellos 
de 50 ptas. cada uno para 
gastos de envío. 


Q) 


,., 


T AMBIEN DISPONIBLE 
PARA 
COMMODORE 64 


y 


SP-CTRUM 48, PLUS, 128 


calidad de los programas que publica, la mayor 
parte de ellos en Código Máquina, y con la 
utilización de rutinas y técnicas de programación 
muy depuradas. 
Ahora, a un precio inmejorable, podéis tener 
acceso a estos programas l evitandoos la difícil 
tarea de teclearlos en vuestro ordenador, 
¡y cada mes estará en la calle una nueva cinta! 



GUERREROS GALACTICOS 


En el año 2000 de nuestra era 
nace una raza especial de 
hombres, con nervios de acero 
y navegantes incansables del 
espacio, éstos son los 
guerreros galácticos. 
Pilotos de las más sofisticadas 
máquinas interespaciales, 
navegan por el espacio en 
busca de las naves de otros 
imperios que amenazan el 
planeta. 


Sta rion 



g s'amas en el aña 2010, Pe- 
ter Pilot es uno de los alumnos más 
brillantes de la Academia Espacial 
del Aire, 
Sus calificaciones en los largos 
años de estudio han sido inmejora- 
bles, 
En las prácticas de vuelo se revela 
como un piloto hábil con unos refle- 
jos increíbles y una anticipación a las 
situaciones fuera de lo común, 
Peter es famoso en la cafetería de 
la academia por poseer el récord en 
todas las máquinas de video juegos, 
no ofreciendo éstas ningún secreto 
para él, 
De esta manera no es extraño que 
sus aptitudes le hayan llevado a con- 
sagrarse como el alumno más bri- 
llante de su promoción, 
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Conscientes los altos mandatarios 
de su país, de las increíbles habilida- 
des de este joven, se le concede el 
gobierno de una nave experimental 
de navegación en la cuarta dimen- 
sión; el tiempo, 
Debemos combatir naves alieníge- 
nos, que dotadas de navegación en 
el tiempo son completamente invul- 
nerables a las naves convencionales, 
las cuales sufren cuantiosas bajas al 
entrar en combate con ellos, 
En su periplo por las distintas eras 
los alienígenas han alterado grave- 
mente algunos hechos de transcen- 
dental importancia histórica, mate- 
rializados en palabras, las cuales de- 
bemos recoger y devolverlas a su era 
histórica, 
Nuestra misión, destruir las naves 
enemigas que se encuentran en ca- 
da era y recolectar las letras que nos 
permitan salir de dicha zona de tiem- 
po, para continuar nuestra misión, 


,. 


Starion es un programa en tres di- 
mensiones, con una perspectiva que 
reproduce el efecto de vuelo y apro- 
ximación de las distintas naves yob- 
jetos. 
Disponemos de 9 controles de vue- 
lo: 
Cuatro para dirigir la nave, 
Aceleración hiperespacial, decele- 
ración, láser destructor, punto de mi- 
ra activado e informe de daños, 
Lo que nos permite un completo 
dominio de la navegación y situación 
de la nave en cada momento, 
El scáner revela la posición de las 
. . 
naves enemigas que se aproximan a 
nuestra trayectoria, con indicador de 
posición horizontal y vertical. 
Un programa para los amantes de 
las aventuras largas, destruyendo 
enemigos y con todos los alicientes 
de un controlador de vuelo hiperes- 
pacia!. 
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Codename Mat 11 
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Mat Adams es otro piloto de com- 
bate intergaláctico, no es de los afor- 
tunados que han podido realizar cos- 
tosos cursos en la Real Academia 
Aeronaval. 
Mat es un mozo llamado por la ca- 
ja de reclutas 2345**COd* *32 que 
cumple servicio en la quinta brigada 
de defensa galáctica del acuartela- 
miento Cerrus Murcianus, universal- 
mente conocido. 
Su cuartel es movilizado por la 
amenaza de las naves de Myons y sin 
comerlo ni beberlo se ve transforma- 
do en un piloto de combate. 
El objetivo de los Myons, es apo- 
derarse de las minas de Kariliun, el 
más preciado metal en la superficie 
terrestre. 
Las propiedades de este isótopo 
metálico son asombrosas; es la sus- 
tancia generadora de vida, un de- 
sierto se puede convertir en un ver- 
¡el, con sólo unas moléculas, tal es su 
poder. 
El kariliun se extrae de las lejanas 
minas de Vestal el planeta rojo situa- 
do en el centro de la galaxia. 
Mat Adams, piloto inexperto se ve 
envuelto e
 una terrible incursión de 
las naves de Myons, 
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M r. JOystick 


La misión dA nuestro héroe es man- 
tener el suministro de energía que 
Vesta recibe de Calest por mediación 
de cuatro satélites de transmisión re- 
flejada. 
Para lo cual debe eliminar a las na- 
ves de Myons que lo acosan como 
una plaga. 
Si el suministro de energía se cor- 
ta nuestra misión ha fracasado y el 
consejo de guerra será inevitable, 
mejor morir combatiendo que pere- 
cer ejecutado ante un pelotón militar. 
La aventura se realiza en tres di- 
men9iones con efectos de proximi- 
dad, alejamiento y aceleración muy 
reales. 
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Los controles: Movimiento de la 
nave en todas direcciones. 
Disparo del láser, aceleración, 
desaceleración, velocidad crucero 
de combate, turbo sistemas, scáner 
de alta distancia, scáner de comba- 
te, ordenador de combate, informe 
de daños, campo protector, ordena- 
dor de blancos, cambio de arma- 
mento, mecanismo de seguridad. 
Un programa largo con opción de 
grabar el estado actual de la aven- 
tura para continuar otro día, con un 
completísimo controlador de comba- 
te que hará las delicias de los aman- 
tes de los pilotos de caza. 


COMPATIBLE 
CPC 464 
CPC 664 
CPC 6128 
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Aquél/os que hayan emprendido lo arduo toreo de 
depurar complejos programas Basic mediante los 
órdenes TRON y TROFF, se habrán encontrado con 
que dichos comandos son menos útiles de lo que 
parece. 


j 


causa está, naturalmente, 
en que los números de línea retorna- 
dos por la orden TRON se imprimen 
en la pantalla en la posición donde 
se encuentre el cursar de texto, por 
lo que no resulta nada raro finalizar 
con ella llena de números de línea y 
sin tener la menor idea de si el pro- 
grama funciona, no funciona o qué 
pasa, 
Peor todavía: a veces, una opor- 
tuna orden CLS borra toda la salida 
del comando TRON justo cuando es- 
tábamos a punto de averiguar el ca- 
mino seguido por el programa que 
intentamos depurar, 


Depuración más sencilla 


Este artículo proporciona al sufri- 
do programador dos rutinas que me- 
joran grandemente el funcionamien- 
to del comando TRON y que serán 
de interés, también, a los aficionados 
al código máquina. 
La primera cuestión á plantearse 
es si tenemos o no una impresora, 
Si disponemos de ella, lo más lógi- 
co sería dirigir ahí la salida del co- 
mando TRON, permitiendo al pro- 
grama Basic, que estamos depuran- 
do, disponer de toda la pantalla sin 
sobresaltos. 
El programa 1 hace esto. Existe el 
problema de que si el programa a 
depurar hace uso de la impresora, 
ambas salidas aparecerán mezcla- 
das en el papet pero no parece que 
esto constituya un gran inconvenien- 
te, por cuanto sólo queremos averi- 
guar el camino que sigue nuestra 
aplicación, para detectar posibles 
errores. 
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Tiene la ventaja, sin embargo, de 
que podemos ver de una ojeada to- 
dos los números de línea en el papel 
y examinarlos detalladamente, 
¿Y los que no tenemos impresora? 
Bien, una posibilidad sería dirigir 
la salida de TRON siempre al mismo 
lugar de la pantalla, evitando al má- 
ximo que los números de línea impre- 
sos ((choquen» con la salida del pro- 
grama Basic. 
Otra gran mejora que también se 
ha incluido es incorporar una opción 
((paso a paso», de forma que el pro- 
grama Basic se detiene y no ejecuta 
la siguiente línea hasta que pulsemos 
una tecla, 
El programa 2 hace todo esto; im- 
prime la salida de TRON en la ven- 
tana número 7 y espera a que se pul- 
se la tecla T AB antes de permitir al 
intérprete Basic que ejecute la si- 
guiente línea, 
Ambas rutinas podrían haber sido 
unidas, pero para salvar espacio de 
memoria y asumiendo que sólo se 
usaría una opción (impresora o pan- 
talla) a un tiempo, se han creado 
por separado, 
Los listados 1 y 2 muestran las ru- 
tinas en ensamblador; han sido rea- 
lizadas con el ensamblador de Hi- 
soft, pero pueden adaptarse sin pro- 
blemas al formato exigido por el en- 
samblador publicado en el número 
8 de la revista o introducirse a mano 
con el Hexer, 
Para los que no quieran hacer ni 
una cosa ni otra, los programas Ba- 
sic 1 y 2 colocarán adecuadamente 
en memoria el código máquina, 
Excuso deciros que antes de usar- 
los, el espacio de memoria debe ser 
protegido mediante la orden ME- 
MORY 42449, 


Funcionamiento de 
ambas rutinas 


Ambas rutinas cargan en la misma 
dirección y se activan mediante la or- 
den: 


TRON: CALL &A5D2 


y, para desactivar: 
TROFF: CALL &A5DE 


Adicionalmente, la instrucción: 
KEY DEF 68, O, O 
del programa 2 previene que el buf- 
fer de teclado se llene con el signo 



. 


,
 


que normalmente produce la tecla 
TAB. 
Atención: cuando una de estas ru- 
tinas esté en uso, el programa a de- 
purar NO DEBE imprimir nunca los 
símbolos «[» y «]». . 
Al emplear la rutina del listado 2, 
el mejor resultado se obtiene defi- 
niendo la ventana 7 para que ocu- 
pe toda la pantalla, teniendo cuida- 
do de no imprimir nada más desde 
el programa principal (el que se su- 
pone que estamos depurando). 
El funcionamiento de las rutinas en 
máquina es 'el siguiente: primero de 
todo, colocamos en las direcciones 


,- 


... 


&BB5A &BB5B Y &BB5C la dirección 
de nuestra propia rutina de impre- 
sión, de manera que cuando el sis- 
tema trate de imprimir un caraeter y 
acuda al firmware para localizar la 
dirección a la que tiene que saltar, 
se encuentra con NUESTRA RUTINA 
(en los listados 1 y 210 subrutina eti- 
quetado como «ACTIVA»), 
A continuación, examinamos si el 
caraeter que llega para ser impreso 
es cc[ ». 
Si lo es, él y todos los caraeteres si- 
guientes hasta encontrar un «]» se 
envían a la impresora (listado 1) o a 
la ventana 7 (listado 2), 



r . gramAC ión 


.. 


... 


Si no lo es, el caraeter se imprime 
normalmente y la rutina RETorna. 
En el camino, el leetor observará 
que hay llamadas a ccACTIVA» y a 
ccDESACT»j esto es necesario a la ho- 
ra de imprimir, porque entonces ne- 
cesitamos acudir al firmware <mor- 
mal», no a nuestra rutina, 
Asimismo, al RETornar, nuestra ru- 
tina queda habilitada de nueVOj es- 
te cctira y afloja» permite engañar al 
sistema operativo y hacerle trabajar 
de acuerdo a lo que interese: unas 
veces usará el programa en máqui- 
na crea
o por nosotros, y otras el su- 
yo propiO. 


MICROH088Y AMSTIAD 21 



-RO 


RAMA 


10 REM PROGRAMA 1 
15 REM TRAZADO A LA IMPRESORA 
20 FOR x=&A5D2 Tn 
Ab1D:READ a$:POK 
E }:
VAL("

"+a$) :NEXT 

O DATA 
e
c3.32

a
bh
21,e4,a5
22, 
5b,bb
c9.f5,cd,37,bd,fl,c9 
40 Drnr) e5,d5,c:5,47,21, I.d,2<6,7E
,{e, 
00,20,14,78,fe,5b,28,Ob,C:d 
50 DATA d
,B5,cd,5a,hb,cd,d2,a5, 18, 
19,21 , 1 d 
 i'l.6, 34., 78, c.d, ::2 e , bd 
60 DATA 38,fh,cd,2b,bd,78,fe,5d,20, 
07,3e,Oa,cd,2b,bd,36,OO,cl,dl,e1,c9 
,00 
70 REM EJEMPLO DE LA RUTINA 1 
80 TRON:CALL &A5D2 
90 CLS:PRINT"PR08ANDO: 1,:?,3,4" 
100 PRINT"ESTA ES LA LINEA 100" 
110 TROFF:CALL &A5DE 


10 REM PROGRAMA 2 
15 REM TRAZADO A LA VENTANA #7 
20 FOR x=&A5D2 TO &A64B
READ a$:POK 
E }:,VAL("
("+a$) :NEXT 
30 DATA 3e,c3,32,5a,bb,21,e4,a5,22, 
5b,bb,c9,f5,C:d,37,bd,fl,c:9 
40 DATA e5,d5,c5,cd,de,a5,47,21,48, 
a6,7e,fe,OO,20,23,78,fe,Sb,28,05 
50 DATA cd,5a,bb,18,44,21,48,a6,34, 
ed,78,bb,22,49,a6,3e,07,ed,b4,bb 
60 DATA 32,4b,a6,26,01,2e,19,c:d,75, 
bb,78,ed,5a,bb,78,fe,5d,20,22,3a,4b 
,a6 


70 DATA ed,b4,bb,2a,49,a6,ed,75,bb, 
21,48,a6,36,00,06,64,e5,06,00,10,fe 
80 DATA el, lO, fB,3e,44,cd, le,bb,28, 
f9,ed,d2,a5,cl,dl,el,e9,00,00,00,OO 
90 REM EJEMPLO DE LA RUTINA 2 
100 CLS:PRINT"Recuer-de usar- la t.ecl 
a TAB par-a avanzar- una linea, o man 
tengala pulsada eonst.an-t.ement.e" 
110 TRON:KEY DEF 68,0,0:CALL &A5D2 
120 PRINT"PROBANDO: 1,2,3,4 
l30 PRINT"ESTA ES LA LINEA 130 
140 GOTO 160 
150 REM ESTA LINEA SE SALTA 
160 STOP 


LLAM' D 1S AL FIRMWARE DEL LISTADO' 
CALL &BBSA Imprime en la posición del cursor de texto el ca- 
racter contenido en el acumulador. 
CALL &BD2E Examina si la impresora está preparada para re- 
cibir un caracter, Si no está lista, la rutina devuelve 
el carry puesto a l. 
CALL &BD2B Envía a la impresora el caracter contenido en el 
acumulador, 
LLAMADAS AL FIRMWA ,r LISTADO 2 
CALL P-OU1 (&BBSA) Lo mismo que en el listado l. 
CALL SCANAL (&B8B4) Selecciona un canal (sfream) de salida, dado por 
el valor del acumulador. 
CALL 1EC-SI (&BB 1 E) Examina si se ha pulsado una tecla cuyo código 
viene en el acumulador, Si no se ha pulsado, el 
indicador de O se pone a l. 
CALL CURSOR (&BB78) Deja las coordenadas del cursor de texto en HL. 
CALL P-CURS (&BB7S) Pon el cursor en la posición especificada en el re. 
gistro H L. 
CALL JPBLOK (&BD37) Restaura el «bloque de salto» (¡umpblock) del 
. firmware a sus valores originales, 
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Poro que lus dedos 
no realicen ellrobaia duro, M.H. AMS. 
TRAD lo hace por li. Todos los lisiados que incluyan 
esle logolipo se encuenlran o lu disposición en un cas- 
selle mensual, solidlanoslo. 



j 


A502 
A502 
A504 
A5D7 
A5DA 
A5DD 
A50E 
A5DF 
A5E2 
A5E3 
A5E'4 
A5E5 
A5F6 
A5E7 
A5E8 
A5EB 
A5EC 
A5EE 
A5FO 
A5Fl 
A5F3 
A5F5 
A5F8 
A5FB 
A5FE 
A600 
(\6n:::. 
A604 
A605 
A608 
A60A 
A60D 
A60E 
A610 
(\612 
A614 
A617 
A619 
(
6l A 
A61B 
A61C 
A61D 
M.1E 


3EC,
. 
325ABB 
'21E4A5 
225BBB 
C9 


F5 


CD37BD 
Fl 
C9 
E=. 
D5 
C5 
47 
211DA6 
7F 
FFno 
2014 
78 
FE5B 
280B 
CDDEA:'; 
CD5ABR 
CDD2AS 
1819 
211DA6 
34 
78 
l,D:?EBD 
38FB 
C02BBO 
78 
FE::.D 
2007 
:,EO{
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:',6('(' 
Cl 
Dl 
El 
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F'R I NT A604 


r'.
n:-' 

5D¿ 
r,c; [) l\ 
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;
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ASE3 
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A5F5 
A51::6 
ASE7 
ASrA 
A5EB 


PROGRAMA I 


10 
20 ACT 1 t)j4: 


O 
40 


50 


60 
70 1J[f::ACT: 
Re) 
90 
100 
110 N_RUT: 
120 
1:::.0 
140 
150 
160 
170 
lRO 
190 


2(1(1 
21") 
2
C' 
2:;
O 
:'40 
250 


260 FI AGnN: 
270 
'280 F'R I NT: 
290 ESF'ER{
: 
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.,é 1 o 
::;20 
.:.
.O 
:':40 


.350 


"'.60 
'::70 
<:80 
l,90 
400 
410 
420 
430 


RE'SET: 


BUFER: 


['1,,[, 
LD 
LD 
1 D 
LfJ 
RET 
PUF;fl 
CA; L 
FTIF-' 
RET 
F'liSH 
r'1 J£;
 I 
r-t:SII 


LD 
tD 
Ln 
CF' 
JR 
l.n 
CP 
JR 
CALL 
cr
LL 
CALL 
JF( 
LO 
INC 
LD 
C{
LL 
JR 
CALL 
LD 
CF' 



D 
CALL 
l.n 
F'OF' 
P[;F' 
F'OF' 
RFT 
Dí:FS 
FND 


fl{4
.D2 
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01 !-IH
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LO 
U) 
LD 
LD 
RET 
PLJSH 
CALL 
F'OP 
RCT 
F'USH 
PUSH 
F'USH 
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LD 
LD 
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(\672 
067
 
(
6 ::'8 
, A62F< 
!'\A'?F. 
A6:?(J 
,'46:":2 
A(''';3 
Ab";5 
Ab7.7 
(',6:?,8 
A(''';A 
r,¿.?;\: 
A ()",F 
'
Í>111 
(',1,44 
Ab4
 
MAlo 
Af-1\7 
A648 
A649 
(')64R 
0007 
0044 
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600 
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620 
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700 
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BUFER: 
BUFER 1 : 
BUFER2: 
NCANAl : 
TAR: 
RETARD: 
COL: 
FILA: 
TEC_SI: 
P_OUT: 
F'_CURS: 
r.URSOR: 
SCANAI : 
.JPBI m:: 


JF:. 
r' (
I I 
""nr-- 
F'OF' 
F'OF' 
RET 
DEFS 
DEFS 2 
DEFS 
EQlI 
EDU 
EQU 
EQU 
EQU 
EQU 
EQU 
EDU 
EQU 
EQU 
EDU 
E'ND 


BUCl El 
BlJFER2 
DESACT 
JF'BLm: 
F'_CURS 
RETARD 
TFCLA 


ID 
CF' 
,1R 
LD 
CF' 
,JF: 
CALL 
JR 
LD 
INC 
CALL 
LD 
U) 
(
ALL 
ID 
LD 
UJ 
C¡:)LL 
ID 
CALl 
LD 
CF' 
,1F, 
ID 
r,r.: I 
LD 
(:All 
LD 
ID 
LD 

'
J"H 


?1, (HLJ 
!ton 
N7,TRA7A 
A,B 
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Z,F-LAGON 
F' OUT 
RESET 
HL, BUFE
, 
(HL) 
CURSOR 
(BUFER1),HL 
A,NrANAL 
SCANAi_ 
WlIFER::') ,A 
H, COI_ 
L,FIlA 
" CURS 
A,B 
F' OUT 
A,B 


11 ] 11 


NZ, RES
 r 
A, (RLJFER2) 
SCANAL 
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DE 
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DESACT 
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DE 
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7 
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100 
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#881E 
#BB5A 
#BB75 
#BB78 
#BBB4 
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A64B 
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BD37 
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0064 
A63A 


MIOOHOBBY AMSTRAD 23 



- 
, ISE 
 


'E 


. 



 


..j 


. 


. 


. 


- 


T
 


L 
 s 


Hoy día no hú'y ordenador, por pequeño que sea, que no haga 
alard
 de sus capaci
ades gráficas. En efecto, ya se sabe que 
una Imagen vale mas que 1.000 palabras, y, sobre todo, es 
mucho menos aburrida. 


or desgracia, estas má- 
quinas no vienen provistas de un mé- 
todo racional para la explotación de 
sus gráficos y colores; la mayoría de 
las veces, para pintar algo de color 
rojo, por ejemplo, hay que dar una 
orden Basic más o menos larga, se- 
gún el ordenador, que nunca permi- 
te saber de forma intuitiva lo que es- 
tamos haciendo. 
No es lo mismo decir: 
PEN &2,1 
que mover un punto por una panta- 
lla y ver lo que estamos dibujando en 
el color que corresponda, rápida- 
mente y sin tener que aprender a ha- 
blar con un lenguaje más propio de 
una máquina que de una persona. 
El Amstrad también se ve afecta- 
do por este problema. 


Potentes gráficos 
de difícil manejo 


Posee unas posibilidades gráficas 
muy buenas para un ordenador de 
su categoría, pero las órdenes pre- 
vistas para manipularlas son difíciles 
de manejar y requieren un conoci- 
miento preciso del lenguaje Basic, 
aunque son muy potentes, todo hay 
que decirlo. El programador experi- 
menta sin duda un placer estético e 
intelectual al crear un buen diseño 
gráfico mediante ellas, pero imagí- 
nense lo que sentiría una persona 
que sólo desea usar el ordenador co- 
mo un (<lienzo electrónico)), si se le 
obliga a aprender informática a Ba- 
sic para poder trabajar. 
Está muy claro: pocos comprarían 
la máquina. 
Para resolver este problema y ha- 
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cer accesibles a estas personas los or- 
denadores, sin que los demás intere- 
sados por la informática se vean de- 
fraudados, se inventaron los diseña- 
dores de pantallas gráficas: en ellos 
se intenta reproducir el método de 
trabajo que usted seguiría con un 
cuadro hasta donde sea posible, 
añadiéndole la inmensa ventaja de 
que el trabajo duro y mecánico del 
diseño lo hace el ordenador. Usted 
sólo tiene que realizar el verdadero 
trabajo creativo: tener en la mente 
el dibujo; o ni siquiera eso, simple- 
mente probando poco a poco sus 
ideas en pantalla, 


, iseñador de pantallas 
¿La solución? 


En esta línea de pensamiento en 
caja el programa que analizamos en 
Banco de Pruebas: viene en disco y 
se llama simplemente «Diseñador de 
Pantallas». 
Trabaja bajo AMSDOS, no es ne- 
cesario cargar el CP/M para que fun- 
cione. Lo que puede hacer, se mues- 
tra de un plumazo en la Tabla núme- 
ro lo 
Al arrancar el programa, apare- 
cemos en el menú principal de opcio- 
nes (Tabla número 2), el cual, como 
el resto del programa en la versión 
que cayó en nuestras manos, está ín- 
tegramente en inglés, En español, di- 
ría más o menos esto: 
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DISEÑADOR DE PANTALLAS 


1 Editar dibuio en pantalla. 
2 Seleccionar modo de pantalla. 
3 Cambiar iuego de colores, 
4 Salvar!cargar pantalla, 
5 Salvar!cargar gráficos. 


Las opciones y su significado es- 
ta también claras: las dos últimas 
nos permiten almacenar y recuperar 
nuestros dibujos en cinta/disco, 
La número S, sin embargo, requie- 
re una pequeña explicación, En el 
programa está prevista la posibilidad 
de guardar en memoria, asignado a 
un carácter, una porción de la pan- 
talla (lo que en el manual se conoce 
como «efigies))). Podemos guardar 
26 de ellos y pintarlos luego en cual- 
quier posición de la pantalla, aña- 
diendo bastante flexibilidad a las ma- 
nipulaciones de nuestros dibujos. La 
opción 5 permite almacenarlos en 
cinta/disco para su posterior uso, 
La opción 3¡ cambio del juego de 
colores, nos permite cambiar el co- 
lor asignado a una determinada plu- 
ma, en la forma habitualmente em- 
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pleada por el Basic Amstrad, sólo 
que de manera mucho más sencilla, 
basada en un menú que lista los co- 
lores disponibles (en función del mo- 
do de pantalla, naturalmente), Me- 
diante las teclas del cursor, elegimos 
un color, y lo movemos hasta el nue- 
vo número de pluma donde desea- 
mos que se quede, 
En cuanto a la opción 2, su come- 
tido es obvio; pero, además de cam- 
biar el modo de pantalla, borra el di- 
bujo existente en la misma, Esta es la 
única manera de deshacerse de un 
dibujo. El programa tiene el detalle 
de avisar, y nos insta a comprobar 
que el dibujo de pantalla, si existe, 
ha sido, salvado en cinta/disco, 


Edición de dibujos 


La opción número 1 es la más im- 
portante de todas: con ella la pan- 
talla se convierte en un lienzo sobre 
el que podemos hacer todas las co- 
sas detalladas en la Tabla 1, 
Todas las acciones de ella se le co- 
munican al programa mediante co- 
mandos, que normalmente involu- 
cran el uso de las teclas [SH 1FT] Y 
[CTRL[ (Tablas 3 y 4) 
Aparte de la molestia (en mi opi- 
nión) de tener que usar comandos en 
lugar de un interface más evolucio- 
nado, por lo menos son mnemotéc- 
nicos: por ejemplo, la opción dibu- 
jar (PLOT en inglés) es [SH 1FT] + p, 
Cabe preguntarse si en la versión 
traducida del programa los coman- 
dos se «españolizaran». 


Si no es así, usarlo puede ser difí- 
cil hasta acostumbrarse a las distin- 
tas combinaciones de teclas, 
Por otra parte, algunas de las ac- 
ciones que van por comandos impli- 
can entrar en un submenú que se 
muestra en la ventana de informa- 
ción del programa, Aquí la cosa es 
mucho más amigable, pues la mayo- 
ría de las acciones se hacen visual- 
mente; por ejemplo, para cambiar el 
color de dibujo hay que alterar el nú- 
mero de pluma, En la ventana de in- 
formación aparece un recuadro que 
indica el color actual de la pluma nú- 
mero tal, y con las teclas del cursor 
avanzamos o retrocedemos por los 
colores disponibles, a la vez que el 
color correspondiente se muestra en 
el recuadro. Bien por la idea, 


Rápido, muy rápido 


También hay que destacar la ve- 
locidad con que se realizan las ope- 
raciones, y la opción de «teñido», 
que consiste en que el programa bus- 
ca una determinada combinación de 
colores por todo el dibujo, y la cam- 
bia por una nueva, Si, dentro de es- 
to, movemos «manualmente» el cur- 
sor, los colores también cambiarán; 
es como usar una brocha. 
Tal vez lo más importante de todo 
es que el creador del diseñador de 
pantallas previó un método para 
usar los dibujos creados desde Basic 
o código máquina y hacerlos real- 
mente útiles en nuestros programas, 


POSIBILIDADES DEL 
DISEÑADOR DE PANTALLAS 


Selección del Modo de Pantalla. 
Selección del repertorio de colores. 
Pintar puntos en cualquier color, 
Trazar líneas en cualquier color. 
Trazar circunferencias en cualquier color. 
Rellenar áreas cerradas en cualquier co- 
lor. 
Mostrar texto en cualquier posición. 
Mezclar texto con imágenes. 
Pintor con cursar de texto, 
Estampación de caracteres «tramados», 
Conservación y utilización de «efigies». 
Posibilidad de «teñido» de colores. 
Desplazamiento de pantalla (1 ú 8 puntos). 
Magnificación (4 Ó 16 aumentos). 
Archivo de imágenes en cassette, 
Archivo de «efigies» gráficas, 
Operación con cinta o disco, 
Tabla 1 
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Basta simplemente hacer un progra- 
ma cargador muy sencillo, incluirlo 
en el programa que hayamos hecho 
y listo, 
De todos modos, el proceso viene 
detalladamente explicado en el ma- 
nual y funciona. 
A modo de conclusión, creo que el 
diseñador de pantallas es un progra- 
ma útil y flexible, de manejo sorpren- 
dentemente sencillo a pesar de que 
las órdenes se dan mediante coman- 
dos, 
Aprovecha muy bien las posibilida- 
des gráficas del Amstrad, y permite 
crear dibujos increíbles especialmen- 
te en MODO 1, donde se combinan 
un número suficiente de colores y 
una resolución de pantalla acepta- 
ble. 
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RESUMEN DE COMANDOS DISEÑADOR DE PANTALLAS: 


MODO PIXEL 
TECLAS FUNCION TECLA DE SALIDA 
P Modo pintor [SPACE] 
U Modo borrar [SPACE] 
[SPACE] Modo salto - 
[SHIFT]P Elige color pluma [ENTER] 
[SHIFT]U Elige color papel [ENTER] 
[SHIFT]B Elige color borde [ENTER] 
[SH I FT]T Modo texto [ENTER] 
[SHIFT]C Dibuja circunferencia [ENTER]/[SPACE] 
[SHIFT]F Rellena área [ENTER]/[SPACE] I 
[SH 1FT] L Dibuja recta [ENTER]/[SPACE] 
[SHIFT]S Modo desplazamiento [ENTER]/[SPACE] I 
[SHIFT]M Pantalla ampliada - 
[SHIFT]N Pantalla Reducida - 
[SHIFT]R Regreso a menú principal - 
[CLR] Mueve ventana informativa - 
[DELETE] Quita ventana informativa Cualquier otra tecla 
TABLERO NUMERICO 
[ENTER] Sin pixel en posición cursar 
[ENTER] Borra pixel en posición cursar 
1 Cursar abajo/izquierda 
2 Cursar abajo 
3 Cursar abajo/derecha 
4 Cursar izquierda 
6 Cursar derecha 
7 Cursar arriba/izquierda 
8 Cursar arriba 
9 Cursar arriba/derecha 
[SH I FTj con las teclas de control de cursar mueve el cursar 8 pixels, 
MODO TEXTO 
[CTRL]T Báscula escritura/mezcla - 
[CTRL]B Elige color borde [ENTER] 
[SHIFT]/[CTRL]P Elige color plumo [ENTER] I 
[SHIFT]/[CTRL]U Elige color papel [ENTER] 
[CTRL]G Expone gráficos [SPACE] I 
[CTRL]S Conservo gróficos [ENTER]/[SPACE] 
[CTRL]I Modo tramado - 
1 0- Elige trama [SPACE] 
[CTRL]P Pinta (cursar grande) [SPACE] 
[CTRL]U Borra (cursar grande) [SPACE] 
¡CTRL]W Modo teñido [SPACE] 
CTRL]T Báscula todos/uno - 
[CLR] Suprime caracter bajo el cursar 
[DEL] Suprime caraeter a izquierda del cursar 
[ENTER] Regresa a pixel mode 
CONTROL DE CURSOR: Teclas de flechas, con [SHIFT] para pasos de pixel. 


NOTA.' No pueden suprimirse caracteres después de regresar al modo pixel. 


Tabla 3 


Con este elevado número de colo- 
res y el razonablemente pequeño ta- 
maño de los puntos, cualquier obra 
de arte está a nuestro alcance, sola- 
mente tenemos que pasarla a la pan- 
talla del ordenador, 
Dibujar directamente sobre la pan- 
talla, la figura que queremos repro- 
ducir, puede resultar bastante difícil, 
debido a que con el movimiento del 


. SCREEN 
DESIGNER 
EDIT PICTURE SCREEN 
SELECT SCREEN MODE 
CHANGE COLOUR SET 
SAVE/LOAD SCREEN 
SA VEILOAD GRAPH ICS 
Tabla 2 
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cursor es difícil guardar las propor- 
ciones debidas, 
La mejor solución, es pegar en lo 
pantalla una hoja de celofán con el 
dibujo trazado a bolígrafo, y seguir 
las líneas del dibujo con el cursor co- 
mo si lo estubiéramos calcando. 
Con este método podemos repro- 
ducir cualquier imagen, y sólo nos 
resta ponerle los colores más atrac- 
tivos, para obtener asombrosos re- 
sultados, 
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r Si quieres un ordenador de «una pieza» piensa 

 en el AMSTRAD CPC 464. Tendrás un 
ordenador de una vez por todas, GlaClas a sus 
64K RAM Y 32K ROM y a sus casi ilimitadas 
poSibilidades de crecimiento. tienes gald/JtiZddo 
que el ordenador CPC 464 no se te quedará 
pequeño, 


COMPLETO 


I 
11 


Además, graCias a 3U monitor (color O fósforo 
verde) de altd lesolución (hasta 640 x 200 pixels 
dllecClonados individualmente) y a su umdad de 
cassette tncorporada al teclado. podrás disfrutar 
de tu AMSTRAD de una manera independiente, 
prescindiendo del televisor y del radiocassetle 
de tu casa (a veces tan soliCitados). 


¡Y QUE ME DICES DE LOS 
PROGRAMAS! 
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Actualmente ya hay Cientos de ellos 
dlspombles en España, Stn olvtdar que son vanas 
las revistas dedicadas sólo a AMSTRAD y que el 
/Jumera de libros y penfencos del CPC 464 
crece/J día a día. potenCiando así la creatividad de 
tu ordenador personal. 
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Al comprar tu ordenador CPC 464. 
AMSTRAD ESPAÑA te obsequia con 8 casselles 
de programas y elltbro <Guía de ReferenCia 
BASIC para el programador', 
EXlje la GARANTlA AMSTRAD 
ESPAÑA UNICA VAl/DA PARA 
ACCEDER Al SERVICIO TECNlCO 
OFICIAL, 


PRECIO: 
66.900 ptas, 


(momtor fósforo verde) 
95,900 ptas. 
(monitor color) 


lil
(! 


ESPAf'\JA 
GARANTIA INDESCOMpill[fil
urnillUJ 
Avd del Mediterráneo, 9 - 28007 Madrid Tels, 43345 48 - 433 48 76 - Telex 47660 FAX - 4332450 
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CARACTERISTlCAS TECNICAS 


- Mlcroprocesador Z80 (4MHz). 
Memona de 64K RAM y 32K ROn 
- Graflcos de alta resolución de hasta 640 por 
200 Plxels direccio/Jables individualmente. 
- Umdad de cassette incorporada en el teclado, 
- MOnlto!" color O fósforo verde Inclu do en el 
Sistema, 
- Texto en pantalla de 20. 40 y 80 columnas por 
25 líneas, 
- LOCOMOTlVE BASIC ampliado. 
- Paleta de 21 ('Olores y efectos de .flash.. 
- Teclado profesional tipO QWER TY co/J 
bloque numénco y teclas para cursor 
independientes, 
- Salida Centromcs paralelo. 
- Lector de discos de J" (180K por cara) 
opcional (con CPlM y Dr. LOCO Incluidos 
junto a la unidad de disco). 
Manuales en castellano, 
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Los gráficos de algunos programas con 
software avanzado para el Amstrad son 
completamente asombrosos, 
increíblemente rápidos, llenos de suavidad 
en sus movimientos, multicolores y con 
caracteres sprite. 


i bien el Basic de Amstrad 
es bastante rápido, ciertamente el 
único modo de conseguir semejante 
animación es mediante el uso del có- 
digo máquina, ya que se ejecuta mu- 
cho más rápido que el Basic. 
Así que para seguir la mayor par- 
te de estos artículos necesitaremos al- 
gunos conocimientos del código má- 
quina de laO, Aunque no los tenga 
todavía, debe ser capaz de entender 
esta primera parte, en la que vemos 
cómo se organiza la memoria de 
pantalla, Con la ayuda de la serie del 
código máquina aparecida en artí- 
culos anteriores, conseguiremos re- 
sultados rápidamente. 
El Modo O, es (relativamente) de 
baja resolución, Es el modo multico- 
lor en el que están escritos la mayo- 
ría de los juegos de arcade, así que 
será sobre el que concentremos 
nuestra atención, Pero si queremos 
experimentar las técnicas relativas a 
este modo, pueden transferirse con 
bastante facilidad a otro con unas 
adaptaciones mínimas. 


El firmware no es suficiente 
El secreto de la gran velocidad de 
los gráficos multicolores está en el ac- 
ceso directo.a la memoria de panta- 
lla y en la mínima utilización del sis- 
tema operativo. Si desensamblamos 
cualquier prog rama comercial en- 
contraremos pocas llamadas al firm- 
ware. 
No es que sea errónea la utiliza- 
ción del firmware -todo lo contra- 
rio, es excelente- pero no está es- 
pecíficamente diseñado para la eje- 
cución de juegos de arcade en Mo- 
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do O, sino que está destinado para 
realizar tareas de más alto rango. 
Por ejemmplo, en el SO de la ROM 
hay una magnífica rutina que escri- 
birá cualquier caracter que nos ha- 
yamos tomado la molestia de definir, 
en cualquier color, en cualquier mo- 
do y en cualquier pixel. Nos da do- 
lor de cabeza pensar en los cálculos 
que debe realizar. 
Por detallar alguno de ellos pode- 
mos decir que necesitamos: buscar 
un modelo binario, el color del fon- 
do y del primer plano y los bytes re- 
queridos para producir el modelo 
calculado, que depende del modo, 
y de si estamos escribiendo con el 
cursar de textos o con el de gráficos 
utilizando TAG. Debemos buscar las 
direcciones correctas en la memoria 
de pantalla e introducir en ellas este 
dato. 
Como vemos, implica mucho tra- 
bajo, 
De todas formas, si conocemos por 
adelantado el modelo binario, sa- 
biendo el color y el modo, los datos 
pueden ser elaborados antes que el 
programa se ejecute y puede aho- 
rrarse una cantidad de tiempo im- 
portante, Entonces todo lo que se ne- 
cesita es introducir el dato en la di- 
rección correcta utilizando una ruti- 
na muy simplificada, 
No es tan versátil como las rutinas 
firmware, pero es mucho más rápido, 


La memoria de pantalla 


Lo primero que hacemos es inten- 
tar encontrar cómo está organizada 
la memoria de pantalla en el Ams- 
trad, para lo cual necesitamos el 
programa 1. 
El mapa de memoria que hay en 
el Manual del Amstrad no nos dice 
mucho, excepto que la RAM de pan- 
talla está entre -& COOO y & FFFF- 
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el bloque de 16 K colocado en la zo- 
na más alta de la memoria, encima 
del área reservada para los progra- 
mas Basie. 
El programa I tiene que darnos 
una idea clara de cómo funciona es- 
to, Dibuja tres bloques de color en el 
borde superior izquierdo de la pan- 
talla y entonces espua que pulsemos 
una tecla, La variable «dirección» es- 
tá inicializada con & COOO y cada vez 
que pulsemos una tecla se imprime 
el valor de esta variable y & CO se 
almacena en la dirección correspon- 
diente dentro de la memoria de pan- 
talla, «dirección» se ha íncrementa- 
do en lo 
Ejecutemos el programa, y man- 
tengamos pulsada una tecla. Vere- 
mos que cada caracter de texto tie- 
ne cuatro bytes de anchura y que pri- 
mero se traza la hilera superior de 
pixels de la primera línea de la pan- 
talla, después esto mismo se repite en 
la segunda línea de la pantalla, lo 
mismo ocurre en la tercera, la cuar- 
ta, ete. 
El byte que aparece es precisa- 
mente el que se está trazando en es- 
te momento. 
Continuamos pulsando una tecla 
hasta que la hilera superior de la úl- 
tima línea de la pantalla se traza por 
completo y observamos que reapa- 
rece en la parte superior & 30 bytes 
más tarde, Parece ser que hay una 
parte de la memoria que no apare- 
ce en pantalla. 
Como veremos, al comenzar a re- 
llenar la parte superior de la panta- 
lla de nuevo, esta vez traza la segun- 
da hilera de pixels de la primera lí- 
nea, seguida de la segunda hilera de 
pixels de la segunda línea y así suce- 
sivamente, 


Las reglas de la memoria de 
pantalla 


Estemos atentos ci la dirección es- 
crita y observemos su valor cuando 
continúe en la siguiente línea, es & 
COOO al comienzo de la primera lí- 
nea, & C050 al comienzo de la se- 
gunda, & COAO en la siguiente y." 
Cada línea comienza & 50 bytes 
más tarde que la anterior, Si conoce- 
mos la dirección de pixel en particu- 
lar dentro de una celda de caracter, 
el correspondiente en la celda inme- 
diatamente inferior estará exactamen- 
te en una dirección & 50 más alta, 
Cuando desaparece por la parte 
inferior de la pantalla y reaparece 
por la superior, veremos que la se- 
gunda fila de pixels comienza en la 
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dirección & C800, la tercera en & 
0000, y así, Cada pixel está separa- 
do & 800 del siguiente en dirección 
vertical, se exceptúan el pixel inferior 

e cada celda de caracter y el supe- 
nor de la celda de caracter situada 
inmediatamente debajo (vo/veremos 
sobre esto en un próximo artículo), 
Como veremos en el programa I 
un caracter en Modo O se almace- 
na en 32 bytes, 8 filas de 4 bytes con 
una separación entre cada fila de & 
800. La figura 1 es una muestra. Co- 
mo cada carácter tiene 8 pixels de 
anchura -y esto es común para to- 
dos los modos- un byte sencillo pue- 
de contener la información del color 
para dos pixels, 
El funcionamiento de todo esto es 
muy sencillo. Veremos rápidamente 
que cada fila de pixels tiene una lon- 
gitud de & 5 bytes, Como hay 160 pi- 
xels de un lado a otro de la pantalla 
en Modo O, y como 160 dividido en- 
tre & 50 es 2, tendremos dos pixels 
por byte, 
. 
Cómo está codificada la informa- 
clan? El programa I1 nos ayudará en 
este punto, Los dos pixels del primer 
byte de la memoria de pantalla pue- 
den ser asignados a cualquiera de 
las 16 plumas (PENs) pulsando las te- 
clas del cursor correspondientes a iz- 
quierda y derecha, 
Podemos verlo precisamente en la 
esquina superior izquierda de la pan- 
talla, pero en el caso de que nos sea 
difícil apreciarlo, están repetidos a la 
derecha a un tamaño ocho veces 
mayor, con el número de pluma es- 
crito debajo, El valor de este byte se 
expresa en hexadecimal y también 
mostramos el modelo binario, 


Cada color su valor 


Intentemos cambiar el color de los 
pixels y vemos cómo cambian los va- 
lor
s hexadecimales y su modelo bi- 
nano, 
Deben usarse cuatro bytes para al- 
macenar números de O a 15 %0000 
%0001, %0010,,,,, % 1111 en bina: 
no. 
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TABLA D ',5 
, EL PROGRAMA 2 


80 Marcar pixels. 
90.100 Escribir los pixels ampliados y 
los números de las plumas. 
11 O Tomar un byte y escribir su 
valor hexadecimal. 
120.140 Escribir el modelo binario. 
160.170Cambio de plumas, 
210.320Presentar la pantalla e 
inicializar las variables, 
340 Escribir bloque si el bit está 
activo dentro del byte. 


Así que un byte, consistente en 
ocho bytes, puede almacenar las plu- 
mas (0- 15) de dos pixels, Puede pa- 
recer lógico usar los primeros cuatro 
bytes para el primer pixel y los cua- 
tro siguientes para el segundo pixel. 
No obstante, esto no es tan senci- 
llo. Los bytes 1, 5, 3 y 7 almacenan 
la pluma del pixel izquierdo, y los 
bytes O, 4, 2 y 6 la del pixel derecho. 
El programa 11 escribe los dos 
«nybbles» (4 bytes o medio byte) pa- 
ra cada pixel en la zona próxima al 
borde inferior de la pantalla. 
Pulsamos la tecla izquierda del cur- 
sar y el «nybble» izquierdo recorre- 
rá cada una de las 16 plumas 
%0000, %0001, %0010, y así suce- 
sivamente, De la misma forma pode- 
mos cambiar el «nybble» derecho 
pulsando la tecla derecha del cursar. 
Podemos dibujar en papel un ca- 
raeter multicolor, y cada par de pi- 
xels vecinos en la misma horizontal 
pueden señalarse utilizando este pro- 
grama y anotar los datos que obte- 
nemos. Además estos datos pueden 
almacenarse en cualquier posición 
de la pantalla. Pero este método po- 
dría ser muy pesado de utilizar, así 
que en un artículo posterior de esta 
serie emplearemos un diseñador de 
sprites para hacerla más cómoda- 
mente, 
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T ASLA DE LlNEAS 
DEL PROGRAMA 


Oimensiona el array de los 
datos. 
50-100 Puntos para plots y valores 
hex para las plumas. 
170.230 Escribe los valores. 


Plxel 
columna 


Pixels O, 
& COOO 
& C800 
& 0000 
& 0800 
& EOOO 
& E800 
& FOOO 
& F800 


Pixelsc2, 3 
& COOl 
& C801 
& 0001 
& 0801 
& EOOl 
& E801 
& FOOl 
& F801 


4 
5 


7 


30 


Pixels 4, 5 
& C002 
& C802 
& 0002 
& 0802 
& E002 
& E802 
& F002 
& F802 


I Pixels 6, 7 
& C004 
& C803 
& 0003 
& 0803 
& E003 
& E803 
& F003 I 
& F803j 


30 MlaOHOBBY AMSTRAD 


Figuro 1: Direcciones de memoria correspondientes o/ carac/er superior derecho de /0 pon/olla en Modo O. 
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Ya debemos ser capaces de ver 
que en el programa 1 almacenando 
& eo en la memoria de pantalla, lí- 
nea 120, la colorea de amarillo. Use- 
mos el programa 11 para marcar am- 
bos pixels en amarillo y veremos el 
valor hexadecimal y los modelos bi- 
norias, & eo y %0001, %0001, 
El programa 111 escribe una tabla 
completa de valores hexadecimales 
para todas las combinaciones de los 
pixels izquierdo y derecho. Buscamos 
el valor del pixel izquierdo en la co- 
lumna que aparece a la izquierda y 
el del pixel derecho en la fila supe- 
rior. El valor hexadecimal a calcular 
estará en el cruce de la fila y la co- 
lumna correspondiente a los valores 
de las plumas, Si este número se al- 
macena en la memoria de pantalla 
los dos pixels aparecen en ella con 
los colores de las plumas elegidas. 
Se acabó por ahora. La semana 
que viene empezaremos con unas ru- 
tinas de código máquina bastante 
sencillas que tienen mucho que ver 
con la pantalla. 



10 REM PROGRAMA 1 
20 MODE O:BORDER 4 
:30 PAPER 3: PRINT" '" 
40 PAPER 6:PRINT" " 
50 PAPER 5:PRINT" " 
60 t nCATE 2,13 
70 PRINT"Direccion = 

...." 
80 direccion=&COOO 
90 WH 1 LE 1 f\WEY$=" " : WEND 
100 LOCATE 15,13 
110 PRINT HEX$(direccion) 
120 POKE direccion,&CO 
130 direccion=direccion+l 
140 GOTO 90 


10 REM Screen display 
20 REM By R.A.Maddilove 
30 REM (c) Amstrad Semanal 
40 REM ---------------------------- 


50 MODE O 
60 GOSUB 210:REM Inicializacion 
70 WHILE UPPER$ (IN
<EY$) < }"E" 
80 PLOT 0,398,colorl:PLOT 4,398,col 
or-2 
90 LOCA TE 14,4:PEN color-l:PRINT CHR 
$(233);CHR$(9);CHR$(9);:PEN color-2: 
PRINT CHR$(233) 
100 PEN 2:LOCATE 13,6:PRINT USING"# 
#";color-l;:PRINT CHR$(9);CHR$(9);US 
ING"##";color-2 
110 byte=PEEK(&COOO):LOCATE 4,5:PRI 
NT"
< "; HEX$ (byte, 2) 
120 PAPER 8:LOCATE 7,16:FOR i=7 TO 
O STEP -l:GOSUB 330:NEXT 
130 LOCATE 5,20:i=1:GOSUB 330:i=5:G 
OSUB 330:i=3:GOSUB 330:i=7:GOSUB 33 
O 
140 LOCATE 13,20:i=0:GOSUB 330:i=4: 
GOSUB 330:i=2:GOSUB 330:i=6:GOSUB 3 


30 


I 


150 PAPER 5:PEN 1 
1160 IF INKEY(8)}-1 THEN color-l=(col 
'or-l+l) MOD 16 
'170 IF INKEY(l»-l THEN color-2=Ccol 
or-2+1) MOD 16 
180 WEND 
190 END 
200 REM --------------------------- 


210 REM Inicializacion 
220 DEFINT a-
 
230 BORDER O:PAPER l:CLS 
240 MOVE O,O:DRAW O,398:DRAW 636,39 
8:DRAW 636,0:DRAW 0,0 
250 MOVE O,46:DRAW 640,46:MOVE 0,27 
O:DRAW 640,270:MOVE 320,270:DRAW 32 
0,400 


ó.¡.o 
. 
; qUin · 


260 PAPER 3:PEN 12:LOCATE 2,24:PRIN 
T" ";CHR$(242);CHR$(243);" cambiar- 
pi:{el ":PAPER 5 
270 PEN 1: LOC.ATE 4,3: PRINT"Byte": LO 
CATE 13,2:PRINT"Pi:{els" 
280 LOCATE 4, 12:PRINT"Modelo binar-i 


o" 


290 PEN 2:LOCATE 7, 15:PRINT"7654321 


O" 


300 LOCATE 5,19: PF\INT" 1537 0426" 
310 color-l=0:color2=0 
320 RETURN 
330 REM --------------------------- 


340 IF (byte AND 2 A i) THEN PEN 1 EL 
SE PEN 5 
350 PRINT CHR$(233); 
360 RETURN 


10 REM PROGRAMA 111 
20 A$="PEN PIXEL IZQDO." 
30 DIM byte(15,15) 
40 MODE O 
50 FOR i=O TO 15 
60 FOR j=O TO 15 
70 PLOT 0,398,i:PLOT 4,398,j 
80 byteCi,j)=PEEK(&COOO) 
90 NEXT 
100 NEXT 
110 MODE 2:PRINT 
120 PRINT TAB(8) "VALORES HEXADECIMA 
LES DE LOS PIXELS IZQUIERDO y DEREC 
HO EN MODO O" 
130 PRINT 
140 PRINT TAB(30) "PEN PIXEL DERECHO 


" 


150 PRINT 
160 PRINT TAB(21)"0 1 2 3 4 5 
6 7 8 9 10 11 12 13 14 15" 
170 FOR i=O TO 15 
180 PRINT 
190 PRINT TABCI3)MID$Ca$,i+l,1);" " 
; i ; T AB ( 19) ; 
200 FOR j=O TO 15 
210 PRINT" ";HEX$(byte(i, j) ,2); 
220 NEXT 
230 NEXT 
240 BORDER 3 
250 MOVE O,O:DRAW 0,398,1:DRAW 638, 
398:DRAW 638,0:DRAW 0,0 
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A través de esta sección se pre- 
tende resolver, en la medida de lo 
posible, todas las posibles dudas 
que «atormenten» a todas las 
personas interesadas en el mundo 
del AMSTRAD, sean o no poseedo- 
res de uno y, si lo son, se encuen- 
tren en cualquier nivel de destreza 
en su manelo. 
Semanalmente, aparecen en estas 
páginas las consultas de la mayor 
cantidad de usuarios posible¡ ello re- 
dundará en un mejor servicio y en 
un contacto más estrecho entre to- 
dos nosotros a través de la revista. 
SIN DUDA ALGUNA está 
abierta a todos, 


Creo que sería de gran utilidad pa- 
ra los usuarios del CPCl664 que en 
los programas comerciales (utilida- 
des, juegos, etc.), especificasen en la 
medida de lo posible cual de estos 
programas son compatibles con es- 
te modelo. Ya que como ustedes sa- 
ben hay algunos que por razones de 
memoria no «entran», 
Gracias. 


Juan Manuel Martín 
(Las Palmas) 


Agradecemos tu consejo y aprove- 
chamos para disculpamos porque 
esto no se hiciera en los primeros nú- 
meros de la revista, Tienes razón. 
Sin embargo, si sigues de cerca 
AMSTRAD Semanal, verás que todos 
los programas que aparecen en la 
revista, tanto los comerciales como 
los de Serie Oro, llevan una peque- 
ña nota indicando la compatibilidad 
con los tres modelos cpc. 
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Hola soy un chico que esta com- 
prando la revista semanal Micro- 
hobby y queria preguntar un proble- 
ma que tengo con mi ordenador 
cpc464, ya que tengo un programa 
del cpc 664 y tiene un programa que 
tiene los nuevos comandos del 
cpc664 y entonces queria que en la 
proxima revista semanal que puedan 
ponerlo s, las relaciones de unos co- 
mandos con otros, 
Acontinuacion le digo los coman- 
dos que son los que me interesan: 
clear input 
copychr$ 
cursar 
fill 
frame 
graphics paper 
graphics pen 
mask 
on break cont 
derr 
dec$ 
Bueno y por último pido disculpas 
por todas las faltas de ortografía y 
las demos cosas que pude poner 
mal. 


Francisco Resch (Madrid) 


Agradecemos tu carta y que te 
guste nuestra revista. Esperamos que 
continúe cautivando tu interés. 
El problema que nos planteas no 
es nada sencillo, porque para reali- 
zar lo que tú dices hay que recurrir 
al lenguaje máquina concretamente 
usando la técnica de la extensiones 
disidentes del sistema (RSX)¡ este 
nombre tan altisonante significa sim- 
plemente añadir nuevos comandos 
al Basic Amstrad. 
En el número 7 O de AMSTRAD Se- 
manal, en la sección de Programa- 
ción, publicamos un completo artícu- 
lo explicando cómo puede hacerse 
esto, Algunos de los nuevos coman- 
dos que incluimos, te servirán para 
lo que tú quieres (:GPEN, por ejem- 
plo, equivale a GRAPHIC PEN). 
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Ordenadores personales y de geslión 
Aplicaciones para arquileelura 
· Amst rad · Dragón 
· Sinclair · I mprcsoras 
· Commodorc · Monitorcs 
· Philips · Periféricos 
· Canon · Libros 
· S p e e l r a v í ti e o · Revistas 
Scn imos a pro\'incias 
CI Barquillo. 15. 
Tele,fol!o: (9/) 232 5737, Madrid, 


Aparte de adjuntarles la encuesta 
quiero hacer un comentario sobre el 
programa «EASYDRA W» publicado 
en el número 1 de AMSTRAD Sema- 
nal. 
La instrucción de la línea 210 dice: 
210 LOAD picture$, &6675. Siendo 
picture$ + el nombre del fichero a 
cargar definido en la línea 200, Tal 
como está, a mí me da un SINTAX 
ERROR en 210 ya que si la sintaxis 
de la orden «Ioad» es con comillas. 
En cambio, al poner las comillas, lo 
que hace el programa es buscar el 
fichero picture$, es decir, el nombre 
de la variable y no el contenido de 
ésta. 
Espero que respondáis pronto a mi 
duda. Agradecido, 
Gabriel (Alicante) 


La línea 270 tiene una sintaxis per- 
fectamente correcta, como puede 
comprobar si la teclea por separado, 
sin programa, e inicializa la variable 
picture-S al nombre que usted desee. 
El ordenador intentará buscarla en 
cinta o disco. 
Pensamos que su problema con 
esa línea se debe a una definición in- 
correcta de picture$ en otra línea del 
programa, Lógicamente, si usted po- 
ne: 
LOAD «picture$», & 6675 
el Amstrad intentará cargar un fiche- 
ro que se llame literalmente picture$. 
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EspecIalIstas 
en 
SOFTWARE 
para la 
. equeña y 
mediana 
empre . 
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· AMSTRAD 6128 
· AMSTRAD 8256 
· IBM y comp, tibtes 
. 


. 
Programas de gestión 
integrados 
- 
el. Galileo, 25 
Entreplanta A 
Tels.447 97 51 . 447 98 09 
28015 Madrid 
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MICROLlD: Gregorio Fdez" 6 
Tel. (983) 35 26 27, Valladolid 


Jorge Juan, 116, 28028 Madrid 
Tels, (91) 233 07 35-2745380 


Hemos creado para ti el nuevo Club del Software MICRO-1, En él vas a encontrar los últimos títulos 
a unos precios increíbles, Para hacerte socio sólo es necesario que nos pidas uno de estos programas, 
teniendo como regalo de bienvenida un magnífico bolígrafo con reloj de cuarzo incorporado, 


í 


¡¡Primicia AMSTRAD: Ajedrez en tres dimensiones con sintetizador de voz y completamente en 
castellano: 2,395!! 


Ptas. Ptas, Ptas. 
Match day 1.975 Dragontorc 1.875 Raid o moscow 1.975 
Southern belle 1.975 Dummy run 1.975 Jump jet 2.595 
Death pit 1.975 Combat Iynx 1.925 Beach head 2.395 
Decathlon 1.975 Exploding fist 2.095 Basketball 1.950 
Gremlins 1.975 Rocky 1.925 H ighway encout. 1.975 
Popeye 1.875 Basketball 1.925 Hightsade 1.925 
Joystick Quick Shot I Joystick Quick Shot 11 Joystick Quick Shot V 
1.795 2.495 ¡¡El mejor!! 
2.995 
Lápiz óptico DK'Tronics ¡ i Increíbles precios para Cassette especial para 
5.850 tu AMSTRAD 464 y 6128!! 664 Y 6128: 5.295 


Tapa de metacrilato 
transparente 
para tu AMSTRAD 
2.450 


Impresoras 
20% Dto. sobre P.V.P. 


Cinta C-15 Diskette 3 
85 995 


LIBROS 


Ptas, 


Ptas. 


Curso Autodidáctico Basic (1) 
Programando con AMSTRAD 
Juegos sensacionales AMSTRAD 
40 juegos educativos AMSTRAD 
Guia de referencia de Basic 


2.725 
2.250 
1.790 
1.790 
1.900 


Curso Autodidáctico Basic (11) 
Hacia la inteligencia artific, 
Código máquina para princip, 
Programando Basic con AMSTRAD 
Música y sonido con AMSTRAD 


2.750 
1.375 
1.975 
1.975 
1.125 


El pedido te lo enviamos URGENTEMENTE contra-reembolso SIN NINGUN GASTO DE ENVIO, LLA- 
MANDO,a los teléfonos: (91) 233 07 35-274 53 80 o escribiendo a MICRO-1, Jorge Juan, 116,28028 Madrid, 
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Con el objeto de fomentar las rela- 
ciones entre los usuarios de AMSTRAD, 
MERCADO COMUN te ofrece sus pági- 
nas para publicar los pequeños anuncios 
que relacionados con el ordenador y su 
mundo se ajusten al formato indicado a 
continuación. 
En MERCADO COMUN tienen cabida, 
anuncios de ventas, compras, clubs de 
usuarios de AMSTRAD, programadores, 
y en general cualquier clase de anuncio 
que pueda servir de utilidad a nuestros 
lectores, 
Envíanos tu anuncio mecanografiado 
a: HOBBY PRESS, S.A. 
AMSTRAD SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 
¡ABSTENERSE PIU.TAS! 


................. 


Vendo ordenador Amstrad CPC 
664 con unidad de disco 
incorporada y monitor en color. 
Está completo, con garantía 
Indescomp y absolutamente 
nuevo, Precio 105,000 ptas, 
Interesados ponerse en contacto 
con Gregorio. Apartado 25084, 
08080 Barcelona, o al tel, (93) 
353 68 53, A partir de las 19 
horas, 


AMSTRAD Semanal comunica a todos 
sus lectores la apertura de una nueva sec- d I d eas 
ción dedicada a recoger las mejores ideas AlIIst ra 
que exploten al máximo las posibilidades del 
ordenador, materializadas en programas 
claros y cortos (máximo 25 líneas). Los mejores de entre todos ellos serán publica- 
dos con el nombre de su autor en la revista, recibiendo como premio, gratuitamen- 
te en su domicilio los cuatro primeros números de nuestra cinta mensual. Los pro- 
gramas enviados deberán incluir: . 
- Cinta de cassette con el programa o programas grabados. 
- Explicación detallada del funcionamiento y propósito del 
programa, mecanografiado a 2 espacios o con letra clara. 
Es imprescindible indicar en el sobre claramente: AMSTRAD IDEAS. 
La dirección es: 
Editorial Hobby Press, S. A, 
La Granja, sIn. 
Polígono Industrial de Alcobendas. 
Madrid. 


Vendo Spectrum 48 K., 
microdrive, interface 1, (garantías 
en vigor y con fecha en blanco), 
manuales en español, más de 50 
revistas, libro Basic de 
Microhobby, programas (más de 
20), Todo por 59,000 ptas, Te!. 
777 01 67. Madrid, 


................. 


Desearía contactar con usuarios 
del CPC6128, para el intercambio 
de programas, ideas, 
impresiones,.. Josep M, a 
Escubedo, Balmes, 66 - 2 - 3, 
08007 Barcelona, 


................. 
Vendo Oric Atmos por 15,000 
ptas, 
Desearía contactar con usuarios 
del CPC664, 
Angel Alonso Ortega. 
Bosquecillo 6 - 3. o C. Beriaín 
(Navarra), Te!. (948) 31 00 10, 


" ...", !A!l lb 
!J!lIJ; ". " 
. . . 
'. ";;:>" . .:. ellJ ine / 
""""-GABINETE DE INFORMATICA 
· Clases de Informática 
sobre AMSTRAD 
EN GRUPOS O INDIVIDUALES 
· Los mejores precios 
en ordenadores 
AMSTRAD y periféricos. 
. Software a la medida. 
ZURBANO,4 4104763 
28010 MADRID 


Desearía contactar con usuarios 
del Amstrad CPC464 para el 
intercambio de programas, 
Interesados escribir o llamar a 
Gustavo Yenes, Paseo de Heriz, 
82, 20008-San Sebastián, T el. 
(943) 21 58 38. 


................. 
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Embajadores N,o 90 
Madrid 28012, Telf,: 2270980 
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SOLICITUD DE CINTAS DE PROGRAMAS Y NUMEROS ATRASADOS 


iJ Deseo recibir en mi domicilio, al precio de 675 ptas. cada una, las siguientes cintas con los programas 
publicados por Microhobby AMSTRAD Marco con una (X) la(s) cinta(s) que deseo: 
O Cinta n.o 1 (contiene programas publicados en revistas 1 al 4 inclusive) 
O Cinta n.o 2 (contiene programas publicados en revistas 5 al 8 inclusive) 
O Cinta n.o 3 (contiene programas publicados en revistas 9 al 12 inclusive) 
O Cinta n.o 4 (contiene programas publicados en revistas 13 al 16 in'clusive) 
O Cinta n.o 5 (contiene programas publicados en revistas 17 al 20 inclusive) 
O Deseo recibir en mi domicilio, al precio de 150 ptas. cada uno, los siguientes números atrasados de 
Microhobby AMSTRAD 


'ROGRAMA 
UIERAS! ! . 


Nota: Por razones admlnlslrallvas, no podemos admlllr soliclludes de envio de clnlas o numeras sueltos con pago contra reembolso o 
T aqeta de Crédito. Por lavar. envia talón por el importe o giro poslal. 
Si la torma de pago eJeglda es lalón bancario. remilelo Junto con este cupón en un sobre cerrado a la misma dirección. 
Las cinlas de programas se edllan una cada mes. Si solicitas varias las recibirás sucesivamente, cantor me sean ed,ladas. No se cobran 
gastos de envío por las cintas y numeras sueltos. 


EDAD 


NOMBRE 
APELLIDOS 
DOMICILIO 
CIUDAD 
C. POSTAL 


TELEFONO 


PROVINCIA 
PROFESION 


Marco con una (X) en el casillero correspondiente la forma de pago que más me conviene. 
O Talón bancario adjunto a nombre HOBBY PRESS. S. A O Giro Postal N,o 


Firma: 
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Con el 
ciones entr. 
MERCADO 


nas para pl 
que relacio 
mundo se e 
continuacié 
En MERC. 
anuncios d 
usuarios de 
y en gener< 
que pueda 
lectores, 
Envíanos 
a: HOBBY I 
AMSTRAD SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 
¡ABSTENERSE PIUTAS! 


................. 


Vendo ordenador Amstrad CPC 
664 con unidad de disco 
incorporada y monitor en color. 
Está completo, con garantía 
Indescomp y absolutamente 
nuevo. Precio 105,000 ptas. 
Interesados ponerse en contacto 
con Gregorio, Apartado 25084. 
08080 Barcelona, o al te!. (93) 
353 68 53, A partir de las 19 
horas. 


¿U}. IUUU pur J7,UUU pros. rel. 
777 al 67, Madrid. 


................. 


Desearía contactar con usuarios 
del CPC6128, para el intercambio 
de programas, ideas, 
impresiones,.. Josep M.o 
Escubedo, Balmes, 66 - 2 - 3. 
08007 Barcelona, 


................. 
Vendo Oric Atmos por 15.000 
ptas. 
Desearía contactar con usuarios 
del CPC664. 
Angel Alonso Ortega. 
Bosquecillo 6 - 3. o C. Beriaín 
(Navarra). Tel. (948) 31 00 la. 
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HOBBY PRESS,S.A. 


Apartado de Correos 


n.O 54.062 (Apartados Altos) 


MADRID 


sobre AMSTRAD 
EN GRUPOS O INDIVIDUALES 
· Los mejores precios 
en ordenadores 
AMSTRAD y periféricos. 
. Software a la medida. 
ZURBANO,4 4104763 
28010 MADRID 


Desearía contactar con usuarios 
del Amstrad CPC464 para el 
intercambio de programas. 
Interesados escribir o llamar a 
Gustavo Yenes, Paseo de Heriz, 
82, 20008-San Sebastián. Te!. 
(943) 21 58 38. 
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PIDELOS POR CORREO. 


Solamente lo mejor 
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Embajadores N. o 90 
Madrid 28012. T elf,: 227 09 80 



Pon 


a tu imaginación 


¡¡POR PRIMERA VEZ EN EL MUNDO UN PROGRAMA 
DE JUEGOS QUE PUEDES HACER VARIAR A TU MEDIDA CUANTAS VECES QUIERAS!!. 
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Te presentamos un equipo sensaCional: el 
AHSTRAD CPC 6118, 


Con un sólo cable para enchufar a la red, el 
Sistema 6 128 está listo para funCionar, 


JUEGA y APRENDE 
CON 'EL 6/18 


Para jugar. el 6 128 es un ordenador muy 
seno: graCias a sus cientos de programas 
dispombles. tienes aseguradas horas de 
entretemmlento. Yen el mundo de la enseñanza 
no es menos. 
GraCias a sus sensaCionales capacidades 
gráficas (paleta de 21 colores y hasta 640 x 200 
PIXELS) y sonoras (3 voces y 8 octavas. altavoz 
Intenor y saltda stereo) el 6128 es una 
herramienta tf7igualable. Además. dentro del 
paquete de programas que se entrega con el 
sistema. está Incluido el lenguaje educativo por 
excelenCia el Dr. LOGO de Dlgltal Research. Y 
para profundizar en el lenguaje de la informática 
recuerda que el 6128 es el orde¡Jador Idóneo. ya 
que posee uno de los más rápidos y potentes 
BASIC -el LOCOHOTIVE BASIC-. así 
como otros muchos lenguajes de programaCión: 
FORTH, PASCAL, etc. 
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TRABAJA CON EL 6118 


Haz un SitiO en tu negocIo al 6128. Plamfica 
presupuestos. /leva contabilidades. gestiona 
archivos. todo fáCilmente gracias a su Sistema 
Operativo CPIM (en versiones 2.2 y Plus). que 
(como ya sabes) te permitirá acceder a la más 
extensa biblioteca de programas profesionales: 
bases de datos. procesadores de textos. hOjas de 
cálculo. etc. 


CARACTER/ST/CAS 
TECN/CAS 


- 128K RAM y 48K ROM (Incluye 
Locomotive BASIC y Sistema 
OperatIVo). 
- MOnitor: Color de 14"y fósforo 
verde de 12'
 
- Unidad de Disco J" incorporada 
(180K por cara). 

 Teclado profesional. 
- Sistema Operativo: AMS DOS, 
CPIM 2.2 y CP/M Plus. 
- Salida para segunda umdad de 
disco y cassette externa. 


",. 


, 
. ' 
";4; . 


,'/4 
'''-l. 
, ,t 


J I 


,$ ..
... 


., 


T 


I 


\ 


. 
\ 


El CPC 6118 Incluye en su 
suministro: 


- DIsco con Sistema Operativo CPIM2.2 
y lenguaje Dr. LOCO, 
- DIsco con Sistema Operativo CPIM Plus 
y utJlidades. 
- DIsco con seis programas de obsequIO. 
- Manuales en castellano. 


- GARANTIA AHSTRAD ESPAÑA 
UNICA VALIDA PARA ACCEDER AL 
SERVICIO TECNICO OFICIAL. 


TODO POR: 
109.500 ptas. 
(mom?or fósforo verde) 
134.500 ptas. 
(monitor color) 


li 1/f1I/IIi 
 ti 
- 
ESPAKIA 
'J[U]
urnilll[; 


GARANTIA INDESCOMP 
Avd. del Mediterráneo. 9 - 28007 Madrid Te/s. 43345 48 - 433 48 76 - Telex 47660 FAX - 4332450 



